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$ 

SELECT 

6 32IDPOO/ QUIK/ SOURCE/ ALOC/CNCLST 

$ 

SELECT 

632IDP00/QUIK/ SOURCE/ ALOC/DATGRP 

$ 

SELECT 

632 IDPOO/ QUIK/ SOURCE/ ALOC/ FLOCRS 

$ 

SELECT 

6 32IDP00 /QUIK/ SOURCE/ ALOC/MRVRST 

$ 

SELECT 

632 IDPOO / QUIK/ SOURCE/ ALOC/ PRNPUT 

$ 

SELECT 

632IDP00/QUIK/ SOURCE/ ALOC/RDMUL 

$ 

SELECT 

632IDP00/ QUIK/ SOURCE/ALOC/ RDPRNZ 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/ALOC/RDSET 

$ 

SELECT 

6 32IDP00/QUIK/ SOURCE/ ALOC/ RDSMAT 

$ 

SELECT 

6 32 IDPOO /QUIK/ SOURCE/ ALOC/ RNGALT 

$ 

SELECT 

632IDP00/QUIK/ SOURCE/ ALOC/ SETABLE 

$ 

SELECT 

6 32 IDPOO / QUIK/ SOURCE/ ALOC / TIMEPRT 

$ 

LINK 

ALCMUL.ALCINT 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* , W, S , 632IDP00/ QUIK/ OBJECT/ ALCMUL 
632IDP00/QUIK/ SOURCE/ALOC/MULCON 

$ 

SELECT 

$ 

SELECT 

632IDP00 /QUIK/ SOURCE/ALOC/ ADDSAL 

$ 

SELECT 

632 IDPOO / QUIK/ SOURCE/ ALOC/ ASGOUT 

$ 

SELECT 

632IDP00/ QUIK/ SOURCE/ ALOC/BOMPRM 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/ALOC/MYAPOS 

$ 

SELECT 

632IDP00/QUIK/ SOURCE/ ALOC/PRKfALL 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/ALOC/PRNTCON 

$ 

SELECT 

6 32 IDPOO/ QUIK/ SOURCE/ ALOC/PRNTNOW 

'$ 

SELECT 

632IDP00/QUIK/ SOURCE/ ALOC/TABLEMUP 

$ 

LINK 

FGD 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C*,W,S,632IDPOO/QUIK/OBJECT/FGD 

6 32IDP00/QUIK/ SOURCE/ALOC/FRSTGD 

$ 

SELECT 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/ALOC/CRDCAL 

$ 

SELECT 

632IDPOO/ QUIK/ SOURCE/ ALOC/FLGCHK 

$ 

SELECT 

632IDP00/ QUIK/ SOURCE/ ALOC/INICRD 

$ 

SELECT 

6 32IDPOO/ QUIK/ SOURCE/ ALOC/NXSPLT 

$ 

SELECT 

632IDP00/ QUIK/ SOURCE/ ALOC/PKCALC 

$ 

SELECT 

632 IDPOO / QUIK/ S OURCE/ ALOC / PRNTOF 

$ 

SELECT 

632 IDPOO /QUIK/ SOURCE/ ALOC/ RECON 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/ALOC/SETPAY 

$ 

LINK 

SGD , FGD 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* , W, S , 632IDP00/ QUIK/ OBJECT/ SGD 
632IDP00/QUIK/ SOURCE/ALOC/ SCNDGD 

$ 

SFLECT 

$ 

SELECT 

6 32 IDPOO / QUIK/ SOURCE/ ALOC/ NXSPLT 

$ 

SELECT 

6 32 IDPOO / QUIK/ SOURCE /ALOC/ RECON 

$ 

SELECT 

6 32 IDPOO/ QUIK/ SOURCE/ ALOC / SETP AY 

$ 

LINK 

STAL,SGD 

$ 

FORTY 

MAP, XREF, DECK 

C* , W, S , 6 32 IDPOO/QUIK/ OBJECT/ STAL 

$ 

PRMFL 

1 
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SELECT  632IDPOO/ QUIK/ SOURCE/ ALOC/ STALL 
SELECT  632IDPOO/QUIK/ SOURCE/ ALOC /FORMATS 
SELECT  6 32IDPOO /QUIK/ SOURCE / ALOC/ FMUP 
SELECT  632IDPOO/ QUIK/ SOURCE /ALOC/LAMGET 
SELECT  632IDPOO/QUIK/ SOURCE/ ALOC/PREMIUMS 
SELECT  632IDPOC/QUIK/ SOURCE/ ALOC/PRNTOS 
SELECT  632IDPOO/ QUIK/ SOURCE/ ALOC/ SALVAL 
SELECT  6 32IDPOO/QU IK/ SOURCE/ ALOC/ SPLIT 
SELECT  6 32IDPOO/QUIK/ SOURCE/ ALOC/WAD 
SELECT  632IDPOC/QUIK/ SOURCE/ ALOC/WADOUT 
LINK  DEFAL , STAL 

FORTY  MAP, XREF, DECK 

PRMFL  C* , W, S , 632IDPOO/ QUIK/ OBJECT/DEFAL 

SELECT  632 IDPOO /QUIK/ SOURCE/ ALOC /DEFALOC 
SELECT  632IDPOO/QUIK/SOURCE/ALOC/FMUP 
SELECT  6 32 IDPOO /QUIK/ SOUT  2/ ALOC/LAMGET 
SELECT  6 32IDPOO/ QUIK/ SOURCE/ ALOC/PREMIUMS 
SELECT  6 32IDPOO/QUIK/ SOURCE/ ALOC/PRNTOD 
SELECT  632IDPOO/QUIK/ SOURCE/ ALOC/RESVAL 
SELECT  6 32 IDPOO/ QUIK/ SOURCE/ ALOC /SALVAL 
LINK  EVAL.ALOC 
FORTY  MAP, XREF, DECK 

PRMFL  C* , W,  S , 632 IDPOO/ QUIK/ OBJECT/EVALALOC 

SELECT  632 IDPOO /QUIK/ SOURCE/ EVALALOC/ EVALALOC 
SELECT  6 32 IDPOO /QUIK/ SOURCE/ EVALALOC/ EVALPLAN 
SELECT  632 IDPOO /QUIK/ SOURCE/ EVALALOC/ EVAL2 
SELECT  632 IDPOO / QUIK/ SOURCE / EVALALOC / PREVAL 
SELECT  632IDPOO/QUIK/SOURCE/EVALALOC/ SSSPCALC 
SELECT  632 IDPOO /QUIK/ SOURCE / EVALALOC / TGTMOD IF 
SELECT  632IDPOO/QUIK/SOURCE/EVALALOC/WPNMODIF 
LINK  DGZSEL.EVAL 
FORTY  MAP, XREF, DECK 

PRMFL  C* , W, S , 632IDPOO/QUIK/OBJECT/ ALOCOUT 

SELECT  632IDPOO/QUIK/ SOURCE/ ALOCOUT /ALOCOUT 
LINK  OFFSET 
FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S .632IDPOO/QUIK/ OBJECT/ OFFSET 

SELECT  6 32 IDPOO/ QUIK/ SOURCE/ALOCOUT/ COMPRESS 
'ELECT  632 IDPOO / QUIK/ S OURCE / ALOCOUT / CUMINV 
SELECT  6 32IDPOO/ QUIK/ SOURCE/ ALOCOUT/DGZ 
SELECT  632IDPOO/ QUIK/SOURCE/ ALOCOUT/ERGOT1 
SELECT  6 32 IDPOO /QUIK/ SOURCE/ ALOCOUT /FINDMIN 
SELECT  632IDPOO/QUIK/ SOURCE/ ALOCOUT /F2BMIN 
SELECT  632IDPOO/QUIK/SOURCE/ ALOCOUT/ GRADF 
SELECT  6 32 IDPOO/ QUIK/ SOURCE/ ALOCOUT/MOVE 
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Table  8.  Example  of  Instruction  Codes  (Part  1 of  5) 


Command 

CHANGE  WHERE  SIDE-BLUE  AND  RANGE  BETWEEN  RANGE  OF  TYPE  'B-52'  AND 
RANGE  OF  TYPE  'B-52'  TIMES  10  SETTING  CEP  LIKE  TYPE  'B-52' 
(SPEED, SPDLO)  - (10000,9000) 


ARRAY 

ARRAY 

NUMBER 

VALUE 

DESCRIPTION 

1 

4 

Verb  number  - CHANGE 

2 

2 

Number  of  Adverbs 

3 

22 

Number  of  first  Adverb  - WHERE 

4 

7 

Array  number  of  beginning  of  WHERE  clause 

5 

17 

Number  of  second  Adverb  - SETTING 

6 

64 

Array  number  of  beginning  of  SETTING  clause 

Beginning  of  WHERE  clause,  first  group  of  instructions 

calculates 

RANGE  OF  TYPE  'B-52'  TIMES  10 

7 

50* 

Load  numeric  value 

8 

6 

Numeric  is  an  attribute 

9 

148 

Address  of  attribute  (RANGE) 

10 

125 

Number  of  attribute  (RANGE) 

11 

59 

Attribute  is  modified  by  OF  phrase  - this  is 
address  of  identifier  attribute  (TYPE) 

12 

51 

Number  of  identifier  attribute  (TYPE) 

13 

9 

Indicates  value  for  identifying  attribute  is 
alphabetic 

14 

B-52 

First  half  of  value 

15 

Second  half  of  value  (•  blanks) 

16 

66* 

Multiply  by  numeric 

17 

10 

Indicates  numeric  is  a constant  number 

18 

10. 

Numeric  constant 

19 

55* 

Store  calculated  value  in  an  internal  variable 

20 

1 

Index  number  of  internal  variable 

♦Instruction  code 


Table  8.  (Part  2 of  5) 


ARRAY 

NUMBER 

ARRAY 

VALUE 

DESCRIPTION 

The  next  group  of  Instruction  evaluates 
the  phrase  SIDE=-BLUE 

21 

49* 

Load  alphabetic  value 

22 

6 

Alphabetic  is  an  attribute 

23 

2 

Attribute's  address  (SIDE) 

24 

2 

Attribute's  number  (SIDE) 

25 

0 

Indicates  no  OF  phrase 

26 

17* 

Equal  to  alphabetic? 

27 

9 

Alphabetic  is  alpha  constant 

28 

BLUE 

First  half  of  alpha  constant 

29 

Second  half  of  alpha  constant  (■  blanks) 

30 

42* 

Store  result  of  comparison  in  a logical  variable 

31 

1 

Logical  variable  index  number 

The  next  group  of  instructions  evaluates 
RANGE  BETWEEN  RANGE  OF  TYPE  'B-52'  AND 
RANGE  OF  TYPE  'B-52'  given  that  the  final 
portion  has  already  been  calculated 


32 

50* 

Load  Numeric  Value 

33 

6 

Numeric  is  an  attribute 

34 

148 

Attribute's  address  (RANGE) 

35 

125 

Attribute's  number  (RANGE) 

36 

0 

No  OF  phrase 

37 

30* 

Greater  than  or  equal  to  numeric? 

38 

6 

Numeric  is  an  attribute 

39 

148 

Attribute '8  address  (RANGE) 

40 

125 

Attribute's  number  (RANGE) 

41 

59 

Address  of  identifier  in  OF  phrase  (TYPE) 

* Instruction  code. 
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Table  8.  (Part  3 of  5) 


ARRAY 

ARRAY 

NUMBER 

VALUE 

DESCRIPTION 

42 

51 

Number  of  identifier  (TYPE) 

43 

9 

Value  for  identifier  is  alphabetic 

44 

B-52 

• First  half  of  alpha  value 

45 

Second  half  of  alpha  value  (=  blanks) 

46 

43* 

Logical  AND  indicates  that  result  of  previous 
comparison  is  to  be  logically  'anded'  to  following 
comparison.  Thus  word  47=0 

47 

0 

48 

50* 

Load  Numeric  Value 

49 

6 

Numeric  is  an  atttibute 

50 

148 

Attribute's  address  (RANGE) 

51 

125 

Attribute's  number  (RANGE) 

52 

0 

No  OF  phrase 

53 

39* 

Less  than  or  equal  to  an  internal  variable? 

54 

1 

Index  number  of  internal  variable 

55 

42* 

Store  the  results  of  the  logical  'and'  of  the 
two  comparisons  in  a logical  variable 

56 

2 

Index  number  of  logical  variable 

Now 

the  previously  set  logical  variables 

are 

used  to  evaluate  the  WHERE  clause 

57 

41* 

Load  value  of  logical  variable 

58 

1 

Index  number  of  logical  variable 

59 

43* 

AND  to  value  of  logical  variable 

60 

2 

Index  number  of  logical  variable 

61 

42* 

Store  result  in  logical  variable 

62 

3 

Index  number  of  logical  variable 

63 

1* 

End  of  clause 

♦Instruction  code. 
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Table  8.  (Part  4 of  5) 


ARRAY 

NUMBER 

ARRAY 

VALUE 

DESCRIPTION 

Beginning  of  SETTING  clause.  First 
group  of  instructions  is  for  CEP  LIKE  TYPE 
"TPE  'B-52' 

64 

50* 

Load  Numeric 

65 

6 

Numeric  is  an  attribute 

66 

145 

Attribute's  address  (CEP) 

67 

122 

Attribute's  number  (CEP) 

68 

0 

No  OF  phrase 

69 

11* 

LIKE  string  follows  - Indicates  that 
attribute  should  be  set  to  the  value 
same  attribute  in  identified  record 

loaded 
of  the 

70 

59 

Identifier  attribute's  address  (TYPE) 

71 

51 

Identifier  attribute's  number  (TYPE) 

72 

9 

Identifier's  value  is  alphabetic 

73 

9 

Identifier's  value  is  alphabetic 

74 

B-52 

First  half  of  alphabetic  value 

75 

Second  half  of  alphabetic  value  (»  blanks) 

76 

2* 

End  of  Phrase 

The  Last  group  of  Instruction  Is  for 
(SPEED, SPDLO)  - (10000,90000) 


77 

50* 

Load  Numeric 

78 

6 

Numeric  is  an  attribute 

79 

146 

Attribute's  address  (SPEED) 

80 

123 

Attribute's  number  (SPEED) 

81 

0 

No  OF  phrase 

82 

18* 

Set  equal  to  numeric 

83 

10 

Numeric  is  a constant 

84 

1000. 

Numeric  constant 

85 

43* 

Logical  AND  used  as  phrase  connector 

♦Instruction  code. 
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Figure  6.  Scenario  Data  Structure 


r % 

Number  of  records  is  scenario  dependent 


Figure  7.  Target  Data  Structure 


Number  of  records  In  scenario  dependant 

Figure  8.  Weapon  Data  Structure 
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2.4. 1.3  Geographic  Data  Structure.  Figure  9 shows  the  geographic  data. 
The  principal  Items  here  are  the  two  corridor  hierarchies:  penetration 

| corridor  class  (PNCHD)  with  individual  corridors  (PENCRD)  and  their 
Individual  legs  (PNCRLG) ; depenetration  corridor  class  (DPCHD)  with 
corridors  (DEPCRD)  and  legs  (DPCRLG) . Corridors  are  connected  to 
weapon  groups,  target  list  elements  (TARCDE)  and  recovery  bases  by 
records  which  contain  the  represented  distance.  Distances  from  penetra- 
tion corridor  to  target  (TPDIST),  from  target  to  depenetration  corridor 
to  recovery  bases  (RDDIST). 

2.4. 1.4  Sortie  Data  Structure.  Figure  9.1  shows  the  structure  of 
sortie  data  developed  by  the  QUICK  system.  The  principal  hierarchy  is 
the  scenario  target  list  (TARNUM)  and  the  targets  to  be  considered 
(TARCDE).  The  individual  weapon  assignment  (ASSIGN)  relate  the  targets 
to  the  weapon  group  assigned.  Further,  the  weapon  groups  are  related 
to  their  Individual  sorties  (SRTYTB).  The  sorties  are  further  des- 
cribed by  sortie  events  (SRTEVA  and  SRTEVB) . The  SRTEVA  records  mark 
actual  weapon  events  and  are  linked  to  the  weapon  assignment.  Figure 

9.1  also  shows  three  record  types  not  an  integral  part  of  the  scenario 
structure.  The  SMAT  record  which  contains  value  for  the  ALOC  modules 
SMAT  array  (see  CSM  MM  9-77,  Volume  III),  the  NUMTBL  record  which 
contains  various  scenario  quantities,  and  the  ALCPRM  which  contains 
ALOC  module  control  parameters. 

2.4.2  Organization  Data  Structure.  Organization  data  is  viewed  as 
containing  non-gaming  related  data  and  is  primarily  used  to  define  the 
shape  of  the  gaming  structure.  By  querying  chains  within  these  struc- 
tures, modules  may  readily  ascertain  where  attributes  reside  within 
the  gaming  structure.  The  organization  data  may  be  broken  into  three 
subdivisions;  the  data  organization  index,  the  assignment  table,  and 
miscellaneous  organization  data. 

2.4. 2.1  Data  Organization  Index.  Figure  10  shows  the  data  organization 
index.  This  hierarchy  contains  the  information  needed  for  subroutines 
or  modules  to  determine  the  organization  of  the  data  base.  Chained  to 
the  header  (INDTHD)  is:  a list  of  the  record  types  (INDRCT),  a list 

of  the  attributes  (INDATR),and  a list  of  the  header  reference  codes 
(INDHCS).  The  list  of  reference  codes  is  also  related  to  the  header 
record  type  record.  Each  record  type  (INDRCT)  is  master  of  a chain  of 
records  indicating  which  chains  it  is  a master  of  ( INDMST)  and  also  a 
chain  indicating  which  chains  it  is  a detail  of  (INDDET).  Each  attri- 
bute record  (INDATR)  contains  edit  information  for  the  attribute. 

Some  attributes  are  defined  as  'LIST'  attributes  and  have  chained  to 
them  records  which  contain  their  legal  values  (ALPHVL) . Finally,  a 
record  links  attributes  to  the  record  type(s)  which  contain  them  (LINKER). 

2.4. 2. 2 Assignment  Table.  Figure  11  shows  the  Assignment  Table.  This 
hierarchy  contains  the  information  used  to  determine  several  attributes 
for  targets  based  on  information  from  a JAD  format  record.  Chained  to 
the  header  (ASNTAB)  for  each  side  are  records  containing  the  valid 
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Table  9.  (Part  2 of  2) 


RECORD  TYPE 
NUMBER 

RECORD  TYPE 
NAME 

DESCRIPTION  (ATTRIBUTES ^ 

CLASS  VALUES 

14 

INDTHD 

Data  Organization  Index 
Header  (CLASS)  (This  is 
a CALC  record) 

INDEX 

15 

ASNTAB 

Assignment  Table  Header 
(CLASS, SIDE) 

ASSIGN 

16 

DCTHD 

Dictionary  Header 
(CLASS) 

DICTON 

17 

SYNHD 

Syntax  Directory  Verb 
Header  (CLASS) 

SYNTAX 

18 

ADVHD 

Syntax  Directory  Adverb 
Header  (CLASS) 

ADVERB 

19 

MODTAB 

Module  Link  Table 
(CLASS,  link  Table 
(100  words)) 

MODTAB 

20 

SMAT 

SMAT  Array  (CLASS) 

(This  is  a CALC  record) 

SMAT 

21 

DISPHD 

REPORT  Module  Display 
Header  (CLASS) 

DISPLY 

22 

NUMTBL 

General  Number  Table 
(CLASS) 

NUMBER 

23 

TABLST 

Utility  Table  Header 
(CLASS)  (This  is  a CALC 
record) 

TABLST 

24 

ALCPRM 

ALOC  Control  Parameters 
(CLASS) 

ALCPRM 

i 
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I Table  10.  Data  Base  Record  Types  - Secondary  Records 

(Part  1 of  4) 


RECORD  TYPE 

NUMBER  NAME  DESCRIPTION  (ATTRIBUTES') 

31  TARGTY  Target  Type  (CNTRYLO,  CNTRYCW,  FLAG,  FVALT1 , 

FVALT2,  FVALT3,  FVALT4,  FVALT5 , FVULN1,  NHRDCOMP, 
NTIMCOMP,  Tl,  T2,  T3,  T4,  T5,  TYPE,  VULN1  VULN2) 

32  WEPNGP  Weapon  Group  (ATTINC,  EXPASM,  GBASE,  GFRASM , GLAT, 

GLONG,  GNWPNADJ,  GNWPNS,  GNVEH,  GPKNAV , GREFCODE, 
GREFTIME,  GROUP,  GSBL,  GSBLREAL,  GSTART , GTYPE, 
GTYPREFC,  GYIELD,  IALERT,  IREG,  MAXSAL,  NFIXES, 

NSAL,  NSFIX,  NUMALOC) 

(GROUP  Is  used  as  a Match  Key) 

33  SRTYTB  Sortie  Table  (SDELAY,  SDEPEN,  SINDEXNO,  SLAT,  SLONG, 

SLOW,  SLOW1,  SLOW2,  SLOW3,  SORTNO,  S RE FUEL, 

SVEHNUM) 

34  PENCRD  Penetration  Corridor  (ATTRCO,  ATTRPRE1,  ATTRPRE2 , 

ATTRPRE3,  ATTRSU,  CORNUM,  DEFDIST1,  DEFDIST2, 
DEFDIST3,  DEFRAN,  HILOAT,  KORSTY,  NPRCRDEF,  ORLAT, 
ORLONG) 

35  DEPCRD  Depenetration  Corridor  (CORNUM,  MYRECOV1,  MYRECOV2, 

MYRECOV3 , MYREC0V4) 

36  CCMPTG  Complex  Target  (CNTRYLO,  CNTRYCW,  DESIG,  FLAG, 

FVALT1 , FVALT2,  FVALT3 , FVALT4,  FVALT5 , FVULN1, 

HAZ2,  HGZ,  HGZ2,  ICOMPL,  IDHOB,  INDEXNO,  LAT, 

LONG,  MAXFRA,  MAXKILL,  MINKILL,  MISDEF , NAME, 
NHRDCOMP,  NTIMCOMP,  NTINT,  RADIUS,  TARDEFHI, 
TARDEFLO,  TASK,  TGTMULT,  TGTNUMB , Tl,  T2,  T3,  T4, 

T5,  VALUE,  VOZ)  (ICOMPL  is  a match-key) 

37  FOOTEQ  Footprint  Equation  (Contains  one  hundred  words 

which  are  module  defined) 

38  RGION  Region  (IREG,  COREL)  (IREG  is  a match  key) 

39  PAYTBL  Payload  table  (PAYTBLNM) 

40  WRHEAD  Warhead  (CEPASM.  CPASMZRO,  FFRAC,  NAREADEC,  NCMS, 

NDECOYS,  NWHDS,  PAYALT,  PDUD,  RANGEASM,  RELASM, 
SPEEDASM,  TYPE,  YIELD) 
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Table  10.  (Part  2 of  4) 


RECORD  TYPE 
NUMBER 


41 

WEAPON 

42 

INDRCT 

43 

INDATR 

44 

INDMST 

45 

DCTTAB 

46 

SYNVRB 

47 

PRMADV 

48 

TABLE Z 

49 

INDDET 

50 

SRTEVA 

51 

ASNCLS 

52 

D IS  PRC 

53 

SRTEVB 

61 

TARGET 

DESCRIPTION  (ATTRIBUTES 


Weapon  type  (ACTIVE,  ALTDLY,  BALC,  CEP,  CEPMIN, 
CMISS,  FUNCTI,  IPENMO,  IRECMO,  IREP,  LCHINT , MAXSAL, 
NALTDLY , NMPSIT,  PDES,  PFPF,  PINC,  PLABT,  RRABT, 
RANGE,  RANGEDEC,  RANGEREF,  REANG,  REL,  RNGMIN, 
SIMLUN,  SPDLO,  SPEED,  TOFMIN,  TTOS , TYPE)  (TYPE 
Is  a match  key) 

Index  Record  Type  Record  (contains  record  type 
name  and  number) 

Index  Attribute  Record  (ATTRIBN1,  ATTRIBN2 , 

ATTRIBNO , ATTRBTYP,  ATTRIBAD,  ATDEFALT , ATTRNGHI, 
ATTRNGLO)  (ATTRIBN1  and  ATTRIBN2  are  match  keys) 

Index  Master  Record  (CHAINNAM,  MASDETNM,  MASDETNO) 

Dictionary  Tab-character  (TABCHAR)  (TABCHAR  is  a 
match  key) 

Syntax  Verb  (CLAUSESW,  VERBVAL)  (VERBVAL  is  a 
matcky  key) 

Syntax  Adverb  (ADVERBVL,  CLAUSETY,  PHRASETY) 

(ADVERB VL  is  a match  key) 

Utility  Table  (contains  100  words  which  are  modu 
defined) 

Index  Detail  Record  (CHAINNAM,  MASDETNM,  MASDETNO) 

Sortie  Event  Type  A (LAT,  LONG,  SCUMSURV,  SCHANGE, 
SDAMEXP,  ADELTIME,  SEVCODE,  SLOCATTR,  SPLACE) 

Assignment  Table  Class  ( AC LASS ) 

Display  Record  ClDISPNAMl,  DISPNAM2) 

Sortie  Event  Type  B (Same  attributes  as  record 
number  50) 

Target  (BENO,  CATCODE,  DESIG,  HAZ,  HAZ2,  HGZ,  HGZ2, 
ICOMPL,  IDHOB,  IGIW,  INDEXNO,  IREG,  ISITE,  LAT, 

LONG,  MAJOR,  MAXFRA,  MAXKILL,  MINK ILL,  MINOR, 

MISDEF , NAME,  NTINT,  POP,  RADIUS,  SIDE,  TARDEFHI, 
TARDEFLO,  TASK,  TGTNUMB,  VALUE,  VOZ,  WACNO)  (Record 
is  a CALC  record  - randomized  on  DESIG) 
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Table  10.  (Part  3 of  4) 


RECORD  TYPE 

NUMBER  NAME  DESCRIPTION  (ATTRIBUTES) 

62  PNCRLG  Penetration  Corridor  Leg  (ATTRLE,  DOGLEG,  LAT, 

LONG) 

63  DPCRLG  Depenetration  Corridor  Leg  (DOGLEG,  LAT,  LONG) 

64  TARCDE  Target  List  Element  ( TGTNUMB , TGTREFCD ) 


65  TPDIST  Distance  from  Target  to  Penetration  Corridor 

(ATTRCD,  DISTANCE) 

66  TDDIST  Distance  from  Target  to  Depenetration  Corridor 

(DISTANCE,  DISTDF) 

67  RDDIST  Distance  from  Recovery  Base  to  Depenetration 

Corridor  (DISTANCE) 

68  WEPSUB  Weapon  Subtype  (PAYTBLNM)  ( PAYTBLNM  is  a match  key) 

69  PYLDCT  Count  of  warhead  type  in  Payload  Table  (NUMLOAD) 

70  ASSIGN  Assignment  of  Weapon  Group  to  Target  (ARRIVE,  ASGHOB, 

DGZLAT , DGZLONG,  FIXED,  FLMULT,  FSALVO,  GROUP,  KORR, 
OFFLAT,  OFFLONG,  PEN,  RVAL,  TGTNUMB) 

71  DCTWRD  Dictionary  Word  (W0RDSTR1,  WORDSTR2 , WORDTY,  WORDVL) 

72  SYNCLZ  Links  Verbs  to  Adverbs  ( ADVERB VL,  VERBVAL) 

73  ADVELM  Gives  Legal  Elements  for  elemental  Adverbs 

(ELEMNTTY,  ELEMNTVL) 

74  LINKER  Links  Attributes  to  Record  Types  (ATTRIBN1 , ATTRIBN2 , 

ATTRIBAD,  ATTRBTYP,  contains  2 words  which  are  not 
attributes) 

75  ALPHVL  Legal  Values  for  'LIST'  Attributes  (ALPLSTVL) 

76  INDHCS  Stores  Header  reference  codes  (contains  header 

reference  code  (two  words),  and  the  associated 
CLASS  and  SIZE  values) 

77  DISPDT  Display  table  list  (contains  100  words  which  are 

created  by  REPORT) 
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Table  10.  (Pert  4 of  4) 


RECORD 

TYPE 

NUMBER 

NAME 

DESCRIPTION  (’ATTRIBUTES') 

78 

ASNCTY 

Assignment  Table  Country  (COUNTRY,  REGION) 

79 

ASNTYP 

Assignment  Table  Type  (ATYPE) 

80 

ASNDES 

Assignment  Table  Desig  (DESIGA2,  KOUNT1,  KOUNT2, 
K0UNT3,  K0UNT4,  K0UNT5) 

91 

MSBMTG 

Missile  Bomber  Target  (ADBLI,  ADBLR,  ALRTDB, 
ALRTDL,  GROUP,  IREFUEL,  NADBLI,  NADBLR,  NLRTDB, 
NLRTDL,  NOALER,  NOINCO,  NOPERSQ,  NPRSQ1,  NPRSQ2, 
NPRSQ3,  NPRSQ4,  NUMDBL,  PAYTBLNM , PKNAV,  VO NBAS E, 
WEPNAME) 

92 

RECBTG 

Recovery  base  (CAPACITY) 

93 

REFPNT 

Refuel  Point  (LAT,  LONG,  IREG) 

94 

ASNREC 

Assignment  Table  Category  (ASNTASK,  CATHI,  CATLO, 
CNFLG,  MINCAP 

95 

TYPDES 

Assignment  Table  Type  DESIG  (DESIGA2,  FULL1,  FULL2 
FULL3,  FULL4,  FULL5) 

CHAIN 

NAME 

MASTER 

RECORD 

DETAIL 

RECORD 

DESCRIPTION 

ADVADV 

ADVHD 

PRMADV 

Links  Adverb  Header  to  adverbs 

ADVERB 

PRMADV 

SYNCLZ 

Links  advert  to  link  to  verb 

AIL INK 

INDATR 

LINKER 

Links  Attribute  Record  to  link  to 
record  type 

ALCLAS 

ASNTAB 

ASNCLS 

Links  Assignment  table  header  to 
assigned  classes 

ALLDES 

ASNTAB 

ASNDES 

Links  Assignment  table  header  to 
assigned  DESIG 

ALTDES 

ASNTYP 

TYPDES 

Links  Assigned  type  to  link  to  DESIGs 
for  that  type 

ALTYPE 

ASNCLS 

ASNTYP 

Links  Assigned  class  to  assigned  types 
in  that  class 

ASGWPN 

TARCDE 

ASSIGN 

Links  target  to  fix  assignments  to  it 

ASNRNG 

ASNCTY 

ASNREC 

Links  Assigned  country  to  category 
ranges  for  that  country 

ATRIB 

INDTHD 

INDATR 

Links  index  header  to  attribute  record 

CLAUSE 

SYNVRB 

SYNCLZ 

Links  verb  to  link  to  adverbs 

CMPTGT 

COMPTG 

TARGET 

Links  complex  to  targets  which  make  up 
the  complex 

COMPLX 

CMPHD 

COMPTG 

Links  complex  header  to  complexes 

CONTRY 

ASNTAB 

ASNCTY 

Links  assignment  table  header  to 
assigned  countries 

DEPCOR 

DPCHD 

DEPCRD 

Links  depenetration  corridor  header 
to  depenetration  corridors 

DEPDST 

TARCDE 

TDD 1ST 

Links  target  to  distance  to  depenetra- 
tion corridors 

DEPLEG 

DEPCRD 

DPCRLG 

Links  depenetration  corridors  to  its 
doglegs 

DESTYP 

ASNDES 

TYPDES 

Links  assigned  DESIG  to  link  to  assigned 
type 

DETORE 

DEPCRD 

RDDIST 

Links  depenetration  corridor  to  distance 

to  recovery  base 
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Table  11. 

(Part  2 of  4) 

CHAIN 

NAME 

MASTER 

RECORD 

DETAIL 

RECORD 

DESCRIPTION 

DETOTG 

DEPCRD 

TDDIST 

Links  depenetration  corridor  to  distance 
to  target 

DSPITM 

DISPRC 

DISPDT 

Links  display  table  to  its  elements 

DSPLAY 

DISPHD 

DISPRC 

Links  display  header  to  display  tables 

ELEMNT 

PRMADV 

ADVELM 

Links  elemental  adverb  to  its  legal 
elements 

EQUATE 

PAYTBL 

FOOTEQ 

Links  footprint  equations  to  the  proper 
payload  table 

EVENT 

SRTYTB 

SRTEVA 

Links  sortie  table  to  event  type  A 
(weapon  event) 

EVENT 

SRTYTB 

SRTEVB 

Links  sortie  table  to  event  type  B 
(non-weapon  event) 

GRPREG 

RGION 

WEPNGP 

Links  region  to  weapon  groups  in  that 
region 

IALINK 

INDRCT 

LINKER 

Links  record  type  to  link  to  attributes 

IRDET 

INDRCT 

INDDET 

Links  record  type  to  record  showing 
chains  of  which  it  is  a detail 

IRMAST 

INDRCT 

INDMST 

Links  record  type  to  record  showing 
chains  of  which  it  is  master 

LISTXX 

TARNUM 

TARCDE 

Links  target  list  header  to  elements 
of  the  list 

METOTG 

PENCRD 

TPDIST 

Links  penetration  corridor  to  distance 
to  target 

MYASGN 

WEPNGP 

ASSIGN 

Links  weapon  group  to  fixed  assignments 

MYBASE 

WEPSUB 

MSBMTG 

Links  weapon  sub-type  to  missile/bomber 
targets  that  are  its  bases 

MYEVNT 

ASSIGN 

SRTEVA 

Links  weapon  assignments  to  their  sortie 
event 

MYNAMZ 

INDRCT 

INDHCS 

Links  record  type  for  headers  to  their 
reference  codes 

MYPAY 

PAYTBL 

PYLDCT 

Links  payload  table  to  warhead  type 
count 

MYSRTY 

WEPNGP 

SRTYTB 

Links  weapon  group  to  its  sortie  tables 
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Table  11. 

(Part  3 of  4) 

CHAIN 

NAME 

MASTER 

RECORD 

DETAIL 

RECORD 

DESCRIPTION 

MYSQDN 

WEPNGP 

MSBMTG 

Links  weapon  group  to  missile/bomber 
targets  which  provide  bases  for  the 
group 

NAMEZ 

INDTHD 

INDHCS 

Links  Index  header  to  header  reference 
codes 

PAYTAB 

PAYHD 

PAYTBL 

Links  payload  table  header  to  payload 
tables 

PAYWEP 

PAYTBL 

WEPSUB 

Links  payload  table  to  weapon  sub- type 
that  uses  it 

PENCOR 

PNCHD 

PENCRD 

Links  penetration  corridor  header  to 
penetration  corridors 

PENDST 

TARCDE 

TPDIST 

Links  target  to  distance  to  penetration 
corridor 

PENLEG 

PENCRD 

PNCRLG 

Links  penetration  corridor  to  its  doglegs 

RCTYP 

INDTHD 

INDRCT 

Links  index  header  to  record  types 

RECDST 

RECBTG 

RDDIST 

Links  recovery  base  to  distance  to  depen- 
tration  corridors 

RECOVB 

RCBHD 

RECBTG 

Links  recovery  base  header  to  recovery 

bases 

REFREG 

RGION 

REFPNT 

Links  region  to  refuel  points  in  the 
region 

REFUEL 

RFPTHD 

REFPNT 

Links  refuel  point  header  to  refuel 
points 

REGION 

REGHD 

RGION 

Links  region  header  to  regions 

SORTIE 

SRTYHD 

SRTYTB 

Links  sortie  header  to  sortie  tables 

TAB 

DCTHD 

DCTTAB 

Links  dictionary  header  to  its  tab  char- 
acters 

TABXYZ 

TABLST 

TABLE Z 

Links  utility  table  header  to  utility 
tables 

TARGXX 

TARGET 

MSBMTG 

Links  target  to  missile/bomber  target 
additional  data 

TARGXX 

TARGET 

RECBTG 

Links  target  to  recovery  base  additional 

data 

TGTREG 

RGION 

TARGET 

Links  region  to  targets  in  region 

TGTTGT 

TARGTY 

TARGET 

Links  target  type  to  targets  of  that 

type 
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(Part  4 of  4) 


Table  11 

CHAIN 

NAME 

MASTER 

RECORD 

DETAIL 

RECORD 

TGTTYP 

TGTHD 

TARGTY 

TYPRNG 

ASNTYP 

ASNREC 

VALIST 

INDATR 

ALPHVL 

VERB 

SYNHD 

SYNVRB 

WARHED 

WARHD 

WRHEAD 

WEPGRP 

WPGPHD 

WEPNGP 

WEPNST 

WEAPON 

WEPSUB 

WEPPAY 

WRHEAD 

PYLDCT 

WEPTYP 

WE  PHD 

WEAPON 

WORD 

DCTTAB 

DCTWRD 

WPINGP 

PAYTBL 

WEPNGP 

DESCRIPTION 


Links  target  header  to  target  types 

Links  assigned  type  ti  category  range 
for  that  type 

Links  'list*  attribute  to  its  legal 
values 

Links  syntax  header  to  verbs 

Links  warhead  header  to  warhead  types 

Links  weapon  group  header  to  weapon 
groups 

Links  weapon  type  to  weapon  subtype 

Links  warhead  type  to  count  In  payload 
table 

Links  weapon  header  to  weapon  types 

Links  tab  character  to  words  with  that 
tab 

Links  payload  table  to  weapon  groups 
using  that  table 


Table  12.  Chains  Which  are  Linked  to  Master 


CHAIN  NAME 

MASTER  RECORD 

DETAIL  RECORD 

ADVERB 

PRMADV 

SYNCLZ 

AIL INK 

INDATR 

LINKER 

ALTDES 

ASNTYP 

TYPDES 

ASGWPN 

TARCDE 

ASSIGN 

ASNRNG 

ASNCTY 

ASNREC 

CMPTGT 

COMPTG 

TARGET 

DEPDST 

TARCDE 

TDD 1ST 

DETORE 

DEPCRD 

RDDIST 

DETOTG 

DEPCRD 

TDD 1ST 

DESTYP 

ASNDES 

TYPDES 

IALINK 

INDRCT 

LINKER 

METOGP 

PENCRD 

GPDIST 

METOTG 

PENCRD 

TPDIST 

MYASGN 

WEPNGP 

ASSIGN 

MYBASE 

WEPSUB 

MSBMTG 

KYEVNT 

ASSIGN 

SRTEVA 

MYNAMZ 

INDRCT 

INDHCS 

MYSQDN 

WEPNGP 

MSBMTG 

MYSRTY 

WEPNGP 

SRTYTB 

PAYWEP 

PAYTBL 

WEPSUB 

PENDST 

TARCDE 

TPDIST 

RECDST 

RECBTG 

RDDIST 

TARGXX 

TARGET 

MSBMTG 

TARGXX 

TARGET 

RECBTG 

TGTREG 

RGION 

TARGET 

TGTTYP 

TARGTY 

TARGET 

TGTTGT 

TARGTY 

TARGET 

WARHED 

WARHD 

WRHEAD 

WEPPAY 

WRHEAD 

PYLDCT 

WPINGP 

PAYTBL 

WEPNGP 
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Table  14.  Internal  COP  Common  Block 


BLOCK 

ARRAY  OR  VARIABLE 

DESCRIPTION 

C25 

Represents  record  type  INDHCS. 

Each  record  is  used  to  identify  the  BCD 
reference  code  of  a header. 

XCLASS 

Header's  CLASS  value 

XSIDE 

Header's  SIDE  value 

XREFCD 

Header's  BCD  reference  code 

(this  variable  is  type  character  *8) 

C35 

LINKS (100) 

Module  Link  Table 

FIRST 

INCOM 

Logical  switch  which,  when  on,  indicates 
a sentence  is  being  analyzed 

SYMBOL 

KYMBOL 

Used  to  pass  constructed  ERRFND  symbol 
(see  section  3.5.2). 

TABLZ 

Contains  buffers  for  utility  tables  used 
to  store  ERRFND  table 

KTBVAL(100,4) 

Buffer  of  100  words  for  each  table  type 

TBRFCD(20,4) 

Contains  Reference  Codes  for  tables 

NUMOT (4) 

Number  of  utility  tables  created 

NUMCT(4) 

Index  numbers  of  table  currently  in 
buffer. 

3.7  Main  Routine  of  COP 


I 

PURPOSE: 


Main  program  of  executive  module 


ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


COP  (for  purpose  of  discussion) 

None 

C15,  IPQT,  OOPS 

CLZIDS,  DELTAB,  ERRFND,  INICOP,  INPTRN,  INSDEL, 
MODGET 


CALLED  BY: 


HIS  operating  system 


Method : 

First,  several  switches  are  set:  CHCKOV  to  control  a later  call  to 
| DELTAB,  ERROR  to  indicate  no  error  has  occurred  yet,  and  ENDSW  to  indi- 
cate no  end  of  input.  Next,  INICOP  is  called.  The  process  which  follows 
occurs  for  each  command  sentence. 

First  the  ERRFND  overlays  are  read  in  (this  does  not  occur  for  the  first 
sentence  since  INICOP  has  already  done  this).  Next,  ERRFND  is  called. 

If  CHCKOV  is  still  true,  the  INPTRN  link  is  read  in  and  INPTRN  is  executed 
if  no  error  has  occurred.  If  an  error  occurred  before  INPTRN,  only 
DELTAB  is  called. 

Next,  if  no  error  has  occurred,  MODGET  is  called  to  execute  the  module. 

If  an  error  has  occurred,  CHCKOV  is  set  to  false. 

Finally,  the  End  Input  switch  is  checked  (ENDSW);  if  not  on,  the  next 
| input  sentence  is  processed.  If  it  is  on,  CLZIDS  is  called  and  pro- 
cessing stops. 

COP  is  illustrated  in  figure  13. 
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RETURN 


3.7.4  Subroutine  INICOP 


PURPOSE: 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 
COMMON  BLOCKS: 


SUBROUTINES  CALLED: 


CALLED  BY: 


To  initialize  COP  headers  and  check  for  special 
run  modes 

INICOP 

None 

C15,  C30,  ERRCOM,  IPQT,  OOPS,  SIRING 

BANNER,  BOOT,  DLETE,  ENTMOD(SRM) , ERPRIN , 
GETSTR,  HDFND,  OPNIDS , RETRV,  STORE,  WEBSTR 

COP 


Method: 

The  standard  header  is  produced  and  GETSTR  called  for  the  first  string. 
If  the  first  string  of  input  is  "RESTORE,"  the  overlay  for  the  Save 
| and  Restore  Module  (SRM)  is  executed,  IDS  file  opened  and  GETSTR  is 
called  again.  The  current  string  is  now  checked  for  the  value 
"INITIALIZE."  If  this  is  the  value,  the  overlay  for  BOOT  is  executed. 

In  any  case,  the  next  string  is  obtained  from  GETSTR  and  the  utility 
tables  purged.  Finally,  various  headers  are  retrieved  and  the  syntax 
analysis  process  begun  by  bringing  in  the  ERRFND  overlay  and  calling 
WEBSTR. 

Subroutine  INICOP  is  illustrated  in  figure  17. 
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3.7.4  Subroutine  INICOP 


PURPOSE: 

To  initialize  COP  headers  and 
run  modes 

check  for  special 

ENTRY  POINTS : 

INICOP 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

C15,  C30,  ERRCOM,  IPQT,  OOPS, 

STRING 

SUBROUTINES  CALLED: 

BANNER,  BOOT,  DLETE,  ENTMOD(SRM) , ERPRIN, 
GETSTR,  HDFND , OPNIDS , RETRV,  STORE,  WEBSTR 

CALLED  BY: 

COP 

Method: 

The  standard  header  is  produced  and  GETSTR  called  for  the  first  string. 
If  the  first  string  of  input  is  "RESTORE,"  the  overlay  for  the  Save 
j and  Restore  Module  (SRM)  is  executed,  IDS  file  opened  and  GETSTR  is 
called  again.  Hie  current  string  is  now  checked  for  the  value 
"INITIALIZE."  If  this  is  the  value,  the  overlay  for  BOOT  is  executed. 

In  any  case,  the  next  string  is  obtained  from  GETSTR  and  the  utility 
tables  purged.  Finally,  various  headers  are  retrieved  and  the  syntax 
analysis  process  begun  by  bringing  in  the  ERRFND  overlay  and  calling 
WEBSTR. 


Subroutine  INICOP  is  illustrated  in  figure  17. 


3.7.7  Subroutine  QDATA 
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ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CAT.T.ED: 
CALLED  BY: 

Method: 


Performs  IDS  functions 

CLEANP,  CLZIDS,  DIRECT,  DLETE,  HEAD,  MODFY,  NEXTTT, 
OPNIDS , RETRV,  STORE 

ARGUMENT:  Record  type  or  chain  name 

CIO,  C15,  C20,  C25,  C30,  C35,  C40,  C50 

ERPROC 

(IDS  utility  entry,  called  by  all  QUICK  modules) 


. The  entry  points  for  this  routine  fall  into  three  groups:  those  with 
I no  argument:  CLEANP,  CLZIDS,  OPNIDS,  DIRECT;  those  whose  argument  is  a 
record  type  name:  DLETE,  MODFY,  RETRV,  STORE;  and  those  whose  argument 
is  a chain  name:  HEAD,  NEXTTT. 

CLEANP.  CLZIDS.  OPNIDS  and  DIRECT 

These  entries  each  carry  out  a single  function.  CLEANP  dumps  altered 
pages  to  file  storage.  CLZIDS  closes  the  IDS  file.  OPNIDS  opens  the 
IDS  file  for  update.  DIRECT  retrieves  the  record  whose  binary  reference 
code  is  stored  in  CIO. 

DLETE.  MODFY.  RETRV  and  STORE 

For  each  of  these  entry  points  the  process  is  quite  similar.  The  input 
record  type  name  is  looked  up  in  a table  of  legal  record  type  names 
(REC-TYPE -TABLE) . If  it  is  not  in  the  table  the  error  code  is  set  to 
'OOORRR'.  After  the  look-up,  the  subroutine  branches  to  the  appropriate 
code  to  perform  the  requested  function.  In  some  cases  (see  notes  to 
figure  20)  the  requested  function  is  not  allowed  in  which  event  the  error 
code  is  set  to  '000ILC*. 
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HEAD  and  NEXTTT 

For  each  of  these  entry  points  the  process  is  similar.  The  input  chain 
name  is  looked  up  in  a table  of  legal  chain  names  ( CHAIN -NAME -TABLE ) . If 
it  is  not  in  the  table,  the  error  code  is  set  to  '000CCC'.  After  the  look- 
up, the  subroutine  branches  to  the  appropriate  code  to  perform  the  requested 
function. 

After  any  of  the  above  entry  points  process  have  taken  place,  the  error 
code  is  checked.  If  an  error  has  occurred  ERPROC  is  called. 

Subroutine  QDATA  is  illustrated  in  figure  20. 
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Figure  20.  Subroutine  QDATA:  Entry  OPNIDS  (Part  1 of  9) 
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Search  Mnemonics 
Table  for  Input: 
Mnemonics  (MNEMON 


Found? 


Set  Output 
VALUE-0 


Set  Output 
VALUE  to 
Corresponding 
Value  in  Value  Tabl 


RETURN 


Figure  23.  Subroutine  MNMFND 


3.8.3  Subroutine  NUMFND 


PURPOSE : Finds  number  in  field  of  input  oard  Image  for  BOOT 

ENTRY  POINTS:  NUMFND 

FORMAL  PARAMETERS : VALUE:  Output  numeric  value 

FELD:  Input  card  Image  field 

COMMON  BLOCKS:  None 

SUBROUTINES  CALLED:  None 

CALLED_BY:  BOOT 

Method; 

This  subroutine  scans  an  input  character  string  to  obtain  a number. 

Each  character  in  the  string  is  decoded  and  checked.  If  it  is  a blank 
it  is  ignored.  If  it  is  non-numeric  the  scan  is  halted.  If  it  is 
numeric  the  current  value  of  VALUE  (VALUE  is  0 initially)  is  multiplied 
I by  10  and  the  numeric  added.  If  input  string  contains  a minus  sign 
| result  is  negative. 

Subroutine  NUMFND  is  illustrated  in  figure  24. 


3.9.2  Subroutine  SYNTAX 


PURPOSE; 


Analyze  syntax  of  input  command  sentences 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


SYNTAX 

None 

CIO,  C15,  C30,  FIRST,  IPQT,  OOPS,  STRING 

ERPRIN,  HDFND,  HEAD,  NEXTTT , RETRV 
ERRFND 


Method: 


This  subroutine  checks  each  input  string  against  the  current  setting  of 
various  switches.  If  the  string  is  one  the  types  of  strings  expected, 
the  appropriate  switches  are  reset.  The  following  switches  and  counters 
are  used  by  SYNTAX: 


BETWEN 

BLPRCT 

BOLTYP 

BOOL 

CONTEQ 

ELEMNT 

ELRT 

ENDCLZ 

ENDCOM 

EQUALS 

INCLZ 

INCOM 

LIKE 

PHPNT 


PHPRCT 

RELPHR 

RESTRC 

SINGLE 

SNGCT 


True  when  processing  BETWEEN  relation 
Boolean  parenthesis  level  count 

True  when  expecting  relational  phrase,  left  parenthesis 
or  NOT  (boolean  clause  only) 

True  when  clause  is  boolean 

True  when  an  equals  relation  is  being  continued  in  a 
boolean  clause 

True  when  phrases  are  elemental 

1 - if  elemental  non-boolean  clause 

2 - if  elemental  boolean  clause 
True  if  clause  may  end 

True  if  sentence  may  end 
True  when  processing  EQUALS  relation 
True  when  processing  a clause 
True  when  processing  a sentence 
True  when  processing  a LIKE  relation 
Relational  phrase  branch 

1 - expecting  operation  unless  inside  collection 

2 - expecting  value  or  collection 

3 - check  for  equal  and  between  continuation 
Relational  phrase  parenthesis  count 

True  when  processing  a relational  phrase 
True  when  phrase  type  is  restricted  relational  (EQUALS  or 
LIKE) 

True  when  clause  type  is  single 
Count  of  phrases  for  single  type  clause 
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Value  element  branch 

1 - expecting  end  of  element  or  OF 

2 - expecting  identifying  attribute 

3 - expecting  alphabetic  or  numeric  constant 
True  If  processing  value  element 
True  If  processing  value  expression 

True  when  expecting  new  value  element  or  left  parenthesis 
Value  expression  parenthesis  count 

Processing  proceeds  as  follows: 

First  the  string  is  checked  to  see  If  it  is  a verb,  if  not,  branch  to 
statement  5 (see  figure  30).  If  so  INCOM  is  checked.  If  INCOM  is  true 
but  ENDCOM  is  false  an  error  has  occurred.  Otherwise  INCOM  Is  set  to 
false  and  the  subroutine  exists.  If  INCOM  is  false,  the  VERB  chain  is 
searched  to  find  a match.  When  the  match  is  found  INCOM  and  ENDCOM  are 
set  to  two  and  INCLZ  is  set  to  false.  If  the  clause  switch  indicates 
that  the  verb  must  have  a clause  (ICSW«1),  ENDCOM  is  set  to  false. 

Statement  5 (figure  30) 

If  the  string  is  not  an  adverb,  a branch  is  made  to  statement  19.  If 
it  is  an  adverb  INCOM  is  checked  and  if  false  an  error  has  occurred. 
Next,  if  INCLZ  is  true  but  ENDCLZ  is  false  an  error  has  occurred.  Next, 
the  CLAUSE  chain  is  searched  to  see  if  this  adverb  is  matched  to  the 
current  verb.  If  it  is  HEAD  is  called  to  relieve  the  adverb's  record 
and  the  clause  and  phrase  type  (IXTYP  and  ILTYP)  are  packed  into  the 
adverb's  value.  Now  various  switches  are  set  depending  on  the  clause 
| type  (IXTYP).  If  boolean,  set  SINGLE  to  false,  BOOL  to  true,  BLPRCT 
to  zero  and  BOLTYP  to  true.  If  sequence,  set  SINGLE  and  BOOL  to 
i false.  If  singly  set  SINGLE  to  true,  BOOL  to  false,  SNC-CT  to  zero. 

If  null, set  INCLZ  to  false  and  ENDCLZ  and  ENDCOM  to  true.  For  all 
but  the  last,  set  INCLZ  to  true  and  ENDCLZ,  ENDCOM  and  VALQE  to  false 
and  branch  on  phrase  type  (ILTYP) . For  relational  phrases  set  RESTRC 
to  false,  for  restricted  phrases  set  RESTRC  to  true,  for  both  set 
RELPHR,  ELEMNT,  EQUALS,  LIKE,  BETWEN  and  CONTEQ  to  false,  and  PHPRCT  to 
zero.  For  elemental  phrases  set  ELEMNT  to  true. 

Statement  19  (figure  30) 

At  this  point  refer  to  the  flow  chart,  figure  30  as  processing  is  best 
illustrated  therein.  However,  some  sections  that  are  of  particular  note 
follow. 

Statement  52  (figure  30) 

Here  many  relational  phrases  have  ended.  The  LIKE  phrase  has  one  more 
element--the  value  for  the  identifiers  attribute.  The  BETWEEN  phrase 
may  have  an  optional  'AND'.  After  this  or  without  it  the  BETWEN  switch 
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Figure  31.  (Part  3 of  6) 


181 


Figure  40.  Subroutine  CHANGE  (Macroflo*chart) 
(Part  1 of  2) 
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4.8  Subroutine  CHANGE 

PURPOSE : To  change  existing  records 

ENTRY  POINTS;  CHANGE 

FORMAL  PARAMETERS:  None 

COMMON  BLOCKS;  CIO,  C20,  C30,  ERRCOM,  OOPS,  ORDER,  PRINSP,  SCHEME 

SUBROUTINES  CALLED:  DESSCH,  GETNXT,  HDFND,  HEAD,  INSGET,  LINKUP, 

MODFY,  NEXTTT,  NXTDES , OFVAL,  PRIMHD,  SETSCH, 
UNCODE,  VALDEL,  VALFND,  VALGET,  VALPUT,  XMATH, 
XWHERE 


CALLED  BY:  ENTMOD  (DATA) 

Method: 

The  CHANGE  verb  process  may  be  broken  into  eight  steps  which  are  carried 
out  in  sequence  (see  figure  40). 


The  SETTING  clause  is  scanned.  In  the  process  any  OF  phrases  and  LIKE 
strings  are  immediately  resolved  using  VALFND  and  their  values  stored 
via  OFVAL.  Also  the  extent  of  any  mathematical  calculations  is  noted, 
as  the  limits  for  execution  for  subroutine  XMATH.  The  main  thrust  of 
the  step  is  to  list  any  attributes  (ATNUMB)  and  save  the  values  assigned 
to  them.  If  an  extended  equals  phrase  is  included,  a queue  of  the  values 
is  built  and  the  involved  attribute(s)  are  flagged  (ATTYPE-2)  (see 
figure  43) . 


One  and  a Half 


The  SETTING  clause  is  scanned.  In  the  process,  any  attribute  which  is 
simply  set  to  a value  is  looked  up  in  the  directory  and  the  value  checked. 
List  alphabetics  have  their  list  of  valid  values  compared  to  their  input 
values.  Numeric  attributes  have  their  values  compared  to  the  limits 
given  in  the  directory.  Any  errors  are  reported  but  processing  continues. 


Step  Two 


The  WHERE  clause  is  scanned.  In  the  process  any  OF  phrases  and  LIKE 
strings  are  immediately  resolved  using  VALFND  and  their  values  stored 
via  OFVAL.  Any  attributes  are  saved  in  a list  (WHATNB).  If  an  extended 
equals  phrase  is  included,  its  involved  attributes  are  flagged  (WHATYP-4) 
and  its  values  stored  in  a queue  via  VALPUT.  The  CLASS  and  SIDE  attri- 
butes are  particularly  noted  and  their  values  saved  to  assist  in  the 
retrieval  scheme  construction  process.  If  the  DESIG  attribute  is  the 
only  attribute  included  this  fact  is  noted  as  the  retrieval  process 
differs  greatly  in  this  event  (see  figure  44). 


Figure  43.  Subroutine  CHANGE:  Step  One 
(Pert  1 of  10) 
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Figure  43.  (Part  2 of  10) 
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Figure  43.1  (Part  2 of  6) 
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Figure  43.1.  (Part  6 of  6) 
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Figure  44.  Subroutine  CHANGE:  Step  Two 
(Part  1 of  9) 
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Step  Three 


The  two  attributes  lists  (ATNUMB  and  WHATNB)  are  now  combined.  Also  it 
is  determined  if  both  clauses  contained  a queued  set  of  attributes  (see 
figure  45). 

Step  Four 

The  list  of  attributes  (ATNUMB)  is  now  used  in  an  attempt  to  build  a 
list  of  record  types.  The  ATRIB  chain  is  used  to  find  the  attributes 
in  the  list  and  it  is  determined  for  each  attribute  whether  it  is  a 
single,  multiple  or  control.  For  a single  attribute,  the  record  type 
it  is  on  is  added  to  the  record  type  list  (RTLIST) . For  multiple  attri- 
butes (those  in  the  SETTING  clause)  a list  (MLTLST)  is  kept  separately 
of  the  record  types  which  contain  them.  For  a control  attribute  the  con- 
trolled record  is  added  to  the  record  type  list  (RTLIST).  If  the  attri- 
bute appeared  in  the  SETTING  clause,  the  record  type  is  also  added  to  a 
special  list  (CTLLST) . A separate  list  (CRECNM)  is  also  made  of  the 
record  types  whose  attributes  appear  in  the  SETTING  clause  as  these  are 
the  types  which  will  be  changed  (see  figure  46). 

Step  Five 

For  each  record  type  in  the  list  (CTLLST)  of  controlled  record  types  whose 
attribute  was  in  the  SETTING  clause,  PRIMHD  is  now  called  to  determine 
their  primary  header.  These  headers  are  added  to  the  list  of  record 
types  (RTLIST)  (see  figure  47). 

Step  Six 

Now  the  primary  header  is  determined.  If  a value  for  CLASS  was  included, 
it  is  used  to  do  this.  If  no  such  value  was  included  the  record  type 
with  the  highest  number  is  used.  PRIMHD  is  called  to  determine  the 
primary  header.  The  primary  chains  down  from  the  prlsary  header  are 
now  checked  against  the  multiple  attribute  record  list.  Any  found  are 
Included  in  the  record  type  list  (RTLIST)  (see  figure  48). 

Step  Seven 

First  LINKUP  is  called  to  complete  the  record  type  list  (RTLIST).  The 
lowest  level  record  in  the  list  is  now  checked  to  be  sure  it  is  in  the 
list  of  record  types  to  be  changed  (CRECNM).  SETSCH  is  now  called  to 
build  the  retrieval  scheme.  The  retrieval  scheme  is  used  to  determine 
the  retrieval  order  of  the  record  types  which  are  to  be  changed  and 
they  are  placed  in  the  CHORD  list  in  this  order  (see  figure  49). 
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4.8.1  Subroutine  DESSCH 


r 


PURPOSE: 

To  build 

a DESIG  driven  retrieval  scheme 

ENTRY  POINTS: 

DESSCH 

1 

FORMAL  PARAMETERS: 

LSTLST: 

LSTLN: 

Input  list  of  record  type  numbers 
Number  of  types  in  list 

COMMON  BLOCKS: 

CIO,  C20, 

C30,  OOPS,  PRINSP,  SCHEME,  SCRTCH 

SUBROUTINES  CALLED: 

NEXTTT 

• 

CALLED  BY: 

CHANGE 

Method: 


This  subroutine  builds  a special  retrieval  scheme  driven  by  the  attri- 
bute DESIG.  The  format  of  the  scheme  is  a series  of  word  pairs  as  out- 
lined in  table  16.  After  the  invariable  first  Instruction  is  created, 
the  process  begins  by  searching  chains  of  which  the  TARGET  record  is  master. 
For  each  such  search  that  results  in  fj-r'ing  a record  type  in  the  record 
type  list  (LSTLST),  a Chain  Next  instru.  ion  is  added.  The  record  types 
Identified  are  placed  in  an  open  ended  list  (MIST).  For  each  record 
type  in  MIST,  the  chains  of  which  it  is  detail  are  searched  for  matches 
in  LSTLST.  Each  match  causes  a chain  head  command  to  be  inserted  in 
the  scheme  and  a new  type  added  to  the  list.  When  all  types  have  been 
processed,  the  return  instruction  is  added. 

Subroutine  DESSCH  is  illustrated  in  figure  51. 
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Table  16.  DESIG  Driver  Retrieval  Scheme 


WORD  1 
OF  THE 
INSTRUCTION 
PAIR 


WORD  2 
OF  THE 
INSTRUCTION 
PAIR 


Chain  Name 


Chain  Name 


DESCRIPTION 

Instructs  NXTDES  to  retrieve  the  target 
using  the  input  value  for  DESIG 

Instructs  NXTDES  to  call  NEXTTT  for  the 
chain  names 

Instructs  NXTDES  to  call  HEAD  for  the 
chain  named 

Instructs  NXTDES  to  reset  POINT  to  1 and 
return 
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SECTION  8. 


EXTERNAL  INTERFACE  MODULE 


(EIM) 


' 


8.1  Purpose 

The  purpose  of  the  EIM  Is  to  create  output  tapes/ files  which  are  designed 
to  be  input  to  external  processors, 

8.2  Input 

The  output  files  to  be  built  each  have  the  precondition  that  all  data 
necessary  for  the  file  be  present  in  the  data  base. 

8.3  Output 

The  output  of  EIM  depends  upon  the  verb  and  the  FILE  clause.  BUILD  FILE 
TABLE  produces  a single  tape  with  six  subsections.  The  format  of  this 
tape  appears  in  table  21.  BUILD  FILE  SIDAC  produces  two  tapes,  one  con- 
taining BLUE  targets,  one  containing  RED  targets.  The  format  of  the  two 
tapes  appears  in  table  22.  BUILD  FILE  OTHER  produces  a single  tape  or 
file  whose  format  and  contents  are  specified  by  the  user. 

| The  PLOTIT  and  PLOTDATA  verbs  produce  two  tapes.  One  is  a tape  suitable 
for  the  CALCOMP  plotter.  The  other  contains  information  concerning  all 
points  which  were  not  added  to  the  plot  tape  owing  to  their  being  out  of 
range  of  the  plot  size. 

8.4  Concept  of  Operation 

The  EIM  first  determines  which  verb  caused  the  call.  If  the  verb  was 
| PLOTIT  or  PLOTDATA,  the  appropriate  routine  is  executed.  If  the  verb 
was  BUILD,  the  FILE  clause  is  found  along  with  the  special  word  within 
the  clause.  If  the  special  word  is  SIDAC  or  TABLE  the  appropriate  sub- 
routines are  called  to  produce  the  named  files.  If  the  special  word  is 
OTHER,  the  BLDOTH  subroutine  is  called  to  produce  the  named  files.  If 
the  special  word  is  OTHER,  the  BLDOTH  subroutine  is  called  to  produce 
the  input  defined  file. 

8.5  Identification  of  Subroutine  Functions 

8.5.1  Subroutine  SIDAC.  This  subroutine  produces  the  data  base  assess- 
ment tapes  (DBASSESS).  A preset  retrieval  scheme  for  all  BLUE  targets 
is  set  up  and  executed.  Each  target  retrieved  is  written  out  in  a 
modified  JAD  format.  When  all  BLUE  targets  have  been  output,  the  scheme 
is  modified  for  RED  targets  and  the  RED  targets  are  written  onto  a sep- 
arate tape. 
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Table  21.  BUILD  FILE  TABLE  Output  File  Formats 
(Part  1 of  5) 

TARGET  LIST 


Column  Meaning 


1-8 

9 

10-14 

15 

16-20 

21-24 

25-31 

32-39 

40-45 

46-49 

50-55 

56-60 

61-62 

63-68 

69-71 

72-76 

77 

78-80 

81-90 


'F1TARGET' 

Side:  1 for  Blue;  2 for  Red 

Line  Count,  numeric 

Blenk 

DESIG,  alphabetic . 

Blank 

Latitude  (LAI),  degrees,  minutes,  seconds 
Longitude  (LONG),  degrees,  minutes,  seconds 
NAME,  alphabetic 

World  Area  Code  (WACNO),  alphabetic 

Bomber  Encyclopedia  Number  (BENO) , alphabetic 

Category  (CATC0DE) , numeric 

Country  Location  (CNTRYL),  alphabetic 

Major  Complex  Number  (MAJOR),  numeric 

SIOP  Table  Number,  numeric 

Index  Number  ( INDEXNO) , numeric 
Blank 

Complex  Number  (ICOMPL) , numeric 
Blank 


Table  21.  (Part  2 of  5) 


ro lunrn 

1-7 

8 

9 

10-14 

15 

16-18 

19-20 

21-55 

56-59 

60-69 

70-75 

76-90 


Column 

1-8 

9 

10-14 

15-17 

18-19 

20 

21-37 

38-43 

44-46 

47-90 


VEHICLE  CHARACTERISTICS  LIST 


Meaning 

•F1VEHIC' 

Blank 

Side:  1 for  Blue;  2 for  Red 
Line  count,  numeric 
•1* 

Blank 

SAGA  Plane  type  code 
Blank 

CEP  In  terns  of  feet 
Blank 

TYPE,  alphabetic 
Blank 


WEAPON  CHARACTERISTICS  LIST 

V 

Meaning 

•'F1WEAP0N' 

Side:  1 for  Blue;  2 for  Red 

Line  count 

Blank 

Warhead  type  (Line  Count  * 10  plus  1 for  ASM  0 for  all  others) 

0 - Bomb,  1 - ASM,  2 - DECOY 

Blank 

Warhead  yield  In  kilo tons 

Fission  to  Fusion  percentage  (FFRAC*100) 

Blank 
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Table  21.  (Part  3 of  5) 


I 


MISSILE  BASE  LIST 


Column 

1-8 

■ 

9 

10-14 

\ 15 
16-20 

I 

22-28 
29-36 
37 

38-41 
42-43 
44-45 
46-47 
48-49 

50 

51 

52 

53 

54-59 
60-65 
66-69 
70-71 
72-74 
75-80 
81-84 
85-90 


Meaning 

'FIMTBASE' 

Side:  1 for  Blue;  2 for  Red 

Line  Count 

Blank 

Line  Count 

Blank 

Latitude  (LAT)  degrees,  minutes,  seconds 
Longitude  (LONG)  degrees,  minutes,  seconds 
Blank 

Vulnerability  Number  (VULNl)  alphabetic 

Type  Count 

Blank 

'I/' 

Number  per  site  (NMPSIT),  numeric 
Blank 

H if  VN  greater  than  or  Equal  to  20  S otherwise 
Blank 

1 if  column  51  is  H or  if  51  is  S and  NOALER  Equal  NMPSIT 
Otherwise  - 2 

Blank 

NAME,  alphabetic 
Blank 

Country  Location  (CNTRYL) , alphabetic 
Blank 

TYPE,  alphabetic 
Blank 

Bomber  Encyclopedia  Number  (BENO) , alphabetic 


L. 
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Table  21.  (Pert  4 of  5) 


BOMBER  BASE  LIST 


Column  Meaning 

1-6  ’FlBASP 

7-8  Blank 

9 Side:  1 for  Blue;  2 for  Red 

10  Blank 

11-14  Line  CounC 

15  Blank 

16-20  Index  Number  (INDEXNO),  numeric 

21  Blank 

22-28  Latitude  (LAT),  degrees,  minutes,  seconds 

29-36  Longitude  (LONG),  degrees,  minutes,  seconds 

37  Blank 

38  1 for  SLBM,  2 for  LRA,  3 for  TAC,  7 for  all  others  (from 
FUNCTI) 

39  Blank 

40  T 

41-43  Blank 

44  'V  for  tanker  blank  for  all  others 

45-59  Blank 

60-65  NAME,  alphabetic 

66-69  Blank 

70-71  Country  Location  (CNTRYL) , alphabetic 

72-84  Blank 

85-90  Bomber  Encyclopedia  Number  (BENO) , alphabetic 
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Table  21.  (Part  5 of  5) 


OFFENSIVE  RECOVERY  BASE  LIST 


Column  Meaning 

1-7  'FIRE  CBS’ 

8 B lank 

9 Side:  1 for  Blue;  2 for  Red 

10-14  Line  Count 

15  Blank 

16-20  DESIG,  alphabetic 

21-23  Blank 

24-30  Latitude  (LAT),  degrees,  minutes,  seconds 

31-38  Longitude  (LONG),  degrees,  minutes,  seconds 
39  Blank 

40-45  NAME,  alphabetic 

46r49  World  Area  Code  (WACNO),  alphabetic 

50-55  Bomber  Encyclopedia  Number  (BENO),  alphabetic 

56-60  Category  Code  (CATC0DE),  numeric 

61-62  Country  Location  (CNTRYL),  alphabetic 

63-68  Major  Complex  Number  (MAJOR) , numeric 

69-70  '00' 

71-75  Index  Number  (NDEXNO) , numeric 

76  Blank 

77-80  Capacity  (CAPACITT),  numeric 

81-90  Blank 


Table  22.  BUILD  FILE  SIDAC  Output  File  Format 
(Part  1 of  2) 

Column  Meaning 

1-5  Category  code,  (CAT CODE)  numeric 

6-9  World  Area  Code  (WACNO)  alphabetic 

10-15  Bomber  Encyclopedia  Number  (BENO)  alphabetic 

16-20  Blank 

21-26  Name  (NAME)  alphabetic 

27-58  Blank 

59-64  Major  Complex  Number  (MAJOR)  numeric 

65-88  Blank 

89-94  Minor  Compound  Number  (MINOR)  numeric 
95-118  Blank 

119-125  Latitude  (LAX)  degrees,  minutes,  seconds 
126-133  Longitude  (LONG)  degrees,  minutes,  seconds 
134-137  Blank 

138-139  Country  Location  (CNTRYL)  alphabetic 

140-147  Blank 

148-149  Country  Owner  (CNTRYO)  alphabetic 

150-155  Blank 

156-159  Severe  vulnerability  (VULN1)  VNTK 

160-163  Moderate  vulnerability  (VULN2)  VNTK 

164-167  "O3P0M 

168-190  Blank 

191-198  Capacity  (POP*10) . This  quality  is  zero  for  all  non-U/I 
targets 

199-205  Blank 

206-208  Radius  (RADIUS* 10)  numeric  - tenth  of  nautical  miles. 

This  quantity  is  zero  for  all  non-U/l  targets 

209-283  Blank 

284-286  SI0P  Table  Number,  numeric 

287-288  Blank 
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Table  22.  (Part  2 of  2) 


Column 

289-293 

294 

295-300 

301-303 

304-305 

306 

307-318 

319 

320 

321-335 

336 


Meaning 

DESIG,  alphabetic 
Blank 

TYPE,  alphabetic 
Blank 

ICLASS,  numeric 

1 for  Blue  targets;  2 for  Red  targets 
Blank 

Region  (IREG) , numeric 

SAGA  region.  This  quantity  is  IREG  +1  unless  country  loca- 
tion is  US  or  AK  in  which  case  it  is  IREG 

Blank 

Record  Mark 


| 8.5.2  Subroutine  TABBLE.  This  subroutine  produces  the  table  file.  The 

following  tables  are  produced: 

o Target  list 

o Vehicle  characteristics  list 
o Weapon  characteristics  list 
o Missile  base  list 
o Bomber  base  list 
o Offensive  recovery  base  list 

For  each  list  a preset  retrieval  scheme  is  executed  and  the  records 
retrieved  are  written  onto  the  output  tape. 

8.5.3  Subroutine  BLDOTH.  This  subroutine  builds  an  output  file  accord- 
ing to  user  specified  formats.  This  option  is  very  similar  in  concepts 

to  the  REPORT  module.  First,  all  input  clauses  are  scanned  for  attributes 
and  a retrieval  scheme  is  built.  Next,  all  DEFINES  are  placed  in  proper 
execution  order  and  DEFINE  variable  execution  tables  are  built.  Next, 
the  WHERE  clause  is  scanned  for  DEFINES  and  altered  to  handle  them  prop- 
erly. The  sort  scheme  is  now  created.  Next,  the  retrieval  scheme  is 
executed  and  a file  built  of  the  resultant  records  and  this  file  is 
sorted.  Finally,  the  FORMAT  clause  is  executed  to  produce  the  desired 
file  (see  figure  116). 

8.5.4  Subroutine  PLOTDATA.  This  subroutine  builds  an  output  plot  tape. 
Four  types  of  geographic  data  may  be  plotted: 

o Penetration  corridors 
o Depenetration  corridors 
o Refuel  points 
o Recovery  bases 

For  each  desired  set  of  data  a preset  retrieval  scheme  is  used  to 
retrieve  the  appropriate  data.  For  each  data  record  retrieved,  the 
coordinates  (LAT,  LONG)  are  converted  and/or  scaled  to  the  desired  map 
characteristics  and  are  processed  for  the  plotter. 

8.5.5  Subroutine  PLOTIT.  This  subroutine  builds  an  output  plot  tape. 

The  plots  produced  are  of  bomber  or  tanker  sorties.  User  selected  sor- 
ties are  retrieved  and  their  events  are  plotted  in  sequence  with  special 
symbols  used  to  distinguish  events  (see  CSM  UM  9-77,  Volume  I). 

8.6  Common  Blocks 

The  common  blocks  internal  to  EIM  are  listed  in  table  23. 
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8.9  Subroutine  PLOTDATA 


PURPOSE: 

ENTRY  POINTS: 
FORMAL  PARAMETERS: 

| COMMON  BLOCKS: 

| SUBROUTINES  CALLED: 

CALLED  BY: 

Method: 


To  plot  geographic  data 

PLOTDATA 

None 

C15,  C20,  C30,  OOPS,  PLTPRO,  PLTSPE,  PRINSP, 
SCHEME,  TAPES,  ZEES 

GETNXT,  HOUSKE , HOUSK2 , INSGET,  NEWPEN,  NEXTTT, 
PIECEI,  PIECEN,  PIECE1,  PIECE3,  PIECE4,  PICS, 
PROJCT,  PROJT2,  UNCODE 

ENTMOD  (EIM) 


First  the  SETTING  clause  Is  read  for  changes  to  the  normal  settings  of 
the  plot  selection  factors  (SCALE,  LAT,  LONG,  etc.).  Next  the  plot  tape 
Is  Initialized  through  calls  to  PIECEIT  and  HOUSKEEP.  The  general 
method  from  then  on  Is  for  each  of  the  types  of  plots  desired:  penetra- 
tion corridors,  depenetration  corridors,  refuel  points  and  recovery 
bases.  A preset  retrieval  scheme  Is  read  from  subroutine  data  (arrays: 
SCHA,  SCHB,  SCHC  and  SCHD)  Into  comnon  block  SCHEME.  The  value  for  SIDE 
Is  inserted  and  GETNXT  Is  used  to  retrieve  each  desired  Item  for  the 
plot.  The  coordinates  are  then  adjusted  by  PICS  or  PR0JT2  and  PIECEIT 
or  PIECENUM  called  to  perform  the  plot. 

Subroutine  PLOTDATA  Is  illustrated  in  figure  126. 


♦Main  routine  of  overlay  PLOTIT 
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Figure  126.  Subroutine  PLOTDATA  (Pert  1 of  17) 
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Figure  130.  (Part  3 of  13) 
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8.12  Subroutine  PLOTIT* 

PURPOSE:  To  plot  bomber  and  tanker  sorties 

ENTRY  POINTS:  PLOTIT 

FORMAL  PARAMETERS:  None 

I COMMON  BLOCKS:  CIO,  C30,  EVENTS,  INCRT,  PLNTAPE , PLTARRYS, 

PLTPROJ,  PLTSPEC,  TAPES,  XMEDGE 

SUBROUTINES  CALLED:  FNDSRT,  HEAD,  HOUSKEEP,  HOUSK2 , HOUSK3,  NEXTTT, 

PIECEIT , PIECE1,  PIECE3,  PIECE4,  PLOTINIT, 
PROJCT,  PROJT2 , SUBPLOT,  SUBREAD 

CALLED  BY:  ENTMOD  (EIM) 

Method: 

After  calling  PLOTINIT  to  read  user  Input,  PLOTIT  is  controlled  by  the 
variables  NGRAPHS,  NCASES  and  NPLOT.  These  parameters  drive  loops  that 
control  the  number  of  plots  produced  per  plot  page,  number  of  pages, 
etc.  Each  individual  sortie  selected  is  retrieved  in  turn  in  the  inner 
most  loop.  After  it  is  relieved,  SUBREAD  is  called  to  store  the  sortie 
in  the  /PLTARRAYS/  block.  When  all  the  sorties  for  a particular  graph 
have  been  stored,  SUBPLOT  is  called  to  plot  them. 

Subroutine  PLOTIT  is  illustrated  in  figure  130.1. 


Main  routine  of  overlay  PLOTIT. 
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Figure  130.6.  Subroutine  SUBPLOT  (Part  1 of  13) 
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Figure  130.6.  (Part  2 of  13) 
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Table  24.  (Part  2 of  5) 


Block 

Array  or  Variable 

Description 

MISSLE 

MSLDTA (50,3,6) 

Missile  time  of  flight  data 

MRANGE (50) 

Missile  range 

NAMES (50) 

Missile  type  names 

ORDER 

SCHORD(IOO) 

Record  type  numbers  in  retrieval  scheme 
order 

SORDNM(IOO) 

Record  type  name  in  retrieval  scheme 
order 

LENSCH 

Length,  in  words,  of  retrieval  scheme 

PLTPROJ 

MERCAT 

Projection  type 

IDIREC 

Indicator  of  plot  direction  (+1  for  coun- 
ter - clockwise,  -1  for  clockwise) 

FLMDAO 

Longitude  of  Origin 

PHIO 

Latitude  of  Origin 

THETAO 

Angle  between  meridian  and  x-axis 

PHI1 

Standard  parallel  closest  to  equator 

PHI  2 

Standard  parallel  closest  to  pole 

A1L10 

Fractional  part  of  log  for  PHI1 

A2L10 

Fractional  part  of  log  for  PHI2 

PLTSPEC 

ISZE 

Plot  size  indicator  *0  for  50x40,  »1  for 
20x  20,  *2  for  10  x 10 

XAXLEN 

Length  of  x-axis  in  inches 

YAXLEN 

Length  of  y-axis  in  inches 

FACTOR 

Number  of  plots  per  page 
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Block 


POLITE 


PRNSP 


PS  COM 


RTLST 


Table  24.  (Part  3 of  5) 


Array  or  Variable 
SCALE 

51 

T1 

52 
T2 

FACTOR 

SR 

TR 

PRINON 


RECORD (100) 
RECLEN 


RTLIST(IOO) 

NUMREC 

HDREC 

HCLASS 

HSIDE 

HOPT 


Description 

Ratio  of  world  unit  to  plot  units 

Latitude  of  beginning  Interpolation 
point 

Longitude  of  beginning  interpolation 
point 

Latitude  of  interpolation  end  point 

Longitude  of  interpolation  end  point 

Interpolation  factor  or  fraction 

Latitude  of  interpolated  point 

Longitude  of  interpolated  point 

Switch  to  control  optional  prints,  - True, 
produce  print,  ■ False,  do  not  produce 
print 

Used  to  communicate  with  subroutine 
PSREC 

Body  of  print/sort  record 

Number  of  words  in  record 

Used  to  commmlcate  with  subroutine 
ATFNDR 

List  of  record  type  numbers  for  retrieval 
scheme 

Number  of  record  types  in  RTLIST 
Record  type  name  of  primary  header 
CLASS  value  of  primary  header 
SIDE  value  of  primary  header 
CLASS /SIDE  option  for  retrieval  scheme 
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Table  24.  (Part  4 of  5) 


Block 

Arrav  or  Variable 

Description 

JHDR 

Record  type  number  of  primary  header 

SCHEME 

POINT 

Pointer  to  current  retrieval  scheme 
instruction 

SCHEME (200) 

Retrieval  scheme  (section  4.4) 

SCRTCH 

LIST(300) 

Storage  space  used  as  work  area  by  sev- 
eral subroutines 

SIDES 

SIDES (5) 

List  of  values  for  SIDE 

SNDMIN 

XMIN 

Minimum  value  of  x-coordinator 

YATXMN 

Y-coordinate  at  minimum 

X-coordinate 

XATYMN 

X-coordinate  at  minimum 

Y-coordinate 

YMIN 

Minimum  value  of  y-coordinates 

ISUMIT 

Number  of  points  off  the  graph 

SORSCH 

SRTSCH(IOO) 

Sort  scheme  (see  section  6.10) 

TAPES 

# 

PLOTTAPE 

Logical  unit  number  for  plot  tape 

PIECTAPE 

Logical  unit  number  for  tape  for  non- 
plotted  points 

TARGET 

SACB(1,2) 

Target  coordinates  (Latitude  and 
Longitude) 

TSTUFF 

TOFMIN 

Minimum  time  of  flight 

CMISS 

Missile  time  coefficient 

RNGMIN 

Minimum  range 

RANGEM 

Maximum  range 
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Table  24.  (Part  5 of  5) 


Block 

Array  or  Variable 

DescriDtion 

WAROUT 

IWARFL 

Logical  unit 

number  for  printed  output 

XMEDGE 

YMEDGE 

Map  edge 

XLL 

X-coordinate 

of 

last  point 

YLL 

Y-coordlnate 

of 

last  point 

XL 

X-coordinate 

of 

point  to  be  plotted 

YL 

Y-coordinate 

of 

point  to  be  plotted 

X WEDGE 

Converted  value 

for  latitude  of  origin 

BANGL 

Converted  value 

for  longitude  of  origin 

9.5  Function  AZMUTH 


PURPOSE: 


Compute  relative  azimuth  between  two  points  on 
the  earth  for  subroutine  TOFM 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 


AZMUTH 

RANGE  - Surface  range 

COSLTl  - Cosine  of  weapon  latitude 

SINLTl  - Sine  of  weapon  latitude 

SINLT2  - Sine  of  target  latitude 

COSRNG  - Cosine  of  great  circle  surface  range 

None 


SUBROUTINES  CALLED:  None 


CALLED  BY:  TOFM 

Method: 

The  function  computes  missile  flight  azimuth  according  to  the  method 
described  in  "Program  TRAJECT (u) -Foreigh  Missile  Flight  Simulation 
Software  - 29  Jan  79,"  54474H,  Aerospace  Reconnaisance  Technical  Wing 
(SAC).  Offutt  AFC,  Nebraska  - Trajectory  Division. 

Function  AZMUTH  is  illustrated  in  figure  134. 
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9.6  Subroutine  CINSGET 


PURPOSE; 


ENTRY  POINTS; 


Call  INSGET  and  update  index 


CINSGET 


FORMAL  PARAMETERS; 


COMMON  BLOCKS; 


L:  Array  for  data  from  INSGET  call 

LOC:  Star tins  index 

N;  Number  of  words  from  INSGET  call 

LOCN:  Ending  index  +1 


SUBROUTINES  CALLED;  INSGET 


Method; 

This  subroutine  calls  INSGET  in  order  to  place  N words  into  array  L. 
LOC  is  the  starting  oosition  into  INSGETs  arrays.  LOCN  is  the  next 
location  into  INSGET  array's  after  CINSGET  exits. 

I Subroutine  CINSGET  is  illustrated  in  figure  135. 
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Figure  133.  Subroutine  CINSGET 
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9.7  Function  DIFFLONG 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 

COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
Method : 


To  compute  the  difference  between  two  longitudes 
whose  sign  is  determined  by  the  shorter  direction 
of  travel  from  the  first  meridian  to  the  second. 

DIFFLONG,  DIFFLNG*,  DELLONG 

XI  - Floating  point  longitudes 
X2  - Floating  point  longitudes 

None 

None 


The  input  longitudes  lie  in  the  interval  0-360  degrees  with  west  longitudes 
in  the  range  0-180  degrees  and  east  longitudes  in  the  range  180-360  degrees. 
Longitudes  0 and  360  define  the  Greenwich  meridian.  This  function  returns 
a value  whose  absolute  value  is  equal  to  the  number  of  degrees  of  longitude 
traversed  in  using  the  shorter  great  circle  route  from  meridian  XI  to 
meridian  X2.  The  sign  is  positive  if  the  direction  of  travel  is  eastward 
and  negative  otherwise. 

Function  DIFFLONG  is  illustrated  in  figure  136. 
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Duplicate  entry  for  DIFFLONG. 


9.29  Function  IWANT 


PURPOSE : 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


To  determine  the  position  of  an  item  in  an  array. 
The  search  is  modified  by  specifying  items  not  to 
be  searched. 

IWANT 

NEED  - The  item  to  be  matched 

IAR  - The  array  to  be  searched 

ISTART  - The  first  element  in  the  array  to  be 
searched 

IEND  - The  last  element  in  the  array  to  be 
searched 

None 

None 


Method : 


This  function  searches  array  IAR  from  element  ISTART  to  element  IEND  to 
find  a match  for  NEED.  At  each  occurrence  of  an  element  of  IAR  with  the 
value  = 1R*;  i.e.,  1-character  BCD  code  for  asterisk  right-justified 
with  zero  fill  to  the  left,  the  list  is  not  searched  for  NEED  until  after 
the  next  occurrence  of  the  right- justified  asterisk.  This  search  method 
corresponds  to  ignoring  alphameric  value  subfields  as  defined  by  sub- 
routine GETVALU.  The  value  returned  by  the  function  is  the  index  to  the 
element  of  IAR  which  is  equal  to  NEED.  If  no  element  meets  the  pre- 
scribed conditions,  the  function  returns  the  value  IEND+1 


Function  IWANT  Is  illustrated  in  figure  159 


9.33.1  Subroutine  LUNCH 


PURPOSE: 

To  calculate  missile  time-of-f light  to  target 

ENTRY  POINTS: 

LUNCH 

FORMAL  PARAMETERS: 

LATL  - 
LONL  - 
AZNEW  - 
MSL 

IRNG  - 
LATT  - 
LONT  - 
TOF 

COSLT  - 
SINLT  - 

weapon  latitude 
weapon  longitude 

Azimuth  from  launch  to  target 

weapon  type  index 

range  index  (min,  mid,  or  max) 

output  target  latitude 

output  target  longitude 

output  time  of  flight 

cosine  of  output  target  latitude 

sine  of  output  target  latitude 

COMMON  BLOCKS: 

MISSLE 

SUBROUTINES  CALLED: 

None 

CALLED  BY: 

TOFM 

Method- 

The  subroutine  computes  missile  flight  time  to  a target  according  to  the 
method  described  in  "Program  TRAJECT (u)  - Foreign  Missile  Flight  Simula- 
tion Software  - 29  Jan  79,"  544 7H.  Aerospace  Reconnaissance  Technical 
Wing  (SAC),  Offut  AFT,  Nebraska  - Trajectory  Division. 

Subroutine  LUNCH  is  Illustrated  in  figure  163.1. 
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9.35  Subroutine  MISDATA 

PURPOSE : To  load  missile  time  of  flight  initializing 

parameter 


ENTRY  POINTS:  MISDATA 

FORMAL  PARAMETERS:  None 

COMMON  BLOCKS:  MISSLE 

SUBROUTINES  CALLED;  None 

CALLED  BY:  TOFM 


Method; 


This  subroutine  loads  initializing  data  into  common  block  /MISSLE/.  Data 
is  derived  from  "Program  TRAJECT(u)  - Foreign  Missile  Flight  Simulation 
Software  - 29  Jan  79,"  5447H,  Aerospace  Reconnaissance  Technical  Wing 
(SAC),  Offutt  AFB,  Nebraska  - Trajectory  Division. 

Subroutine  MISDATA  is  illustrated  in  figure  165. 
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9.36  Subroutine  OFVAL 


PURPOSE: 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 


To  maintain  a table  of  values  retrieved  from  OF 
phrases  and  LIKE  strings 

OFVAL 

VALUE:  Value  of  phrase  or  string 

INDEX:  Index  of  instruction  code  containing 

phrase  or  string 
BRANCH:  Action  to  be  performed 

1 - Store  VALUE  and  INDEX  in  table 

2 - Flush  table  buffers 

3 - Retrieve  VALUE  from  table  using  INDEX 

4 - Delete  table 

C40 


SUBROUTINES  CALLED:  DLETE,  RETRV,  STORE 


Method : 

The  process  differs  depending  upon  the  value  of  BRANCH. 

BRANCH-1 

If  the  buffer  VALZ  is  full  it  is  moved  into  the  TABLEZ  comnon  block  C40 
and  STORE  is  called.  The  reference  code  is  saved  in  VLHDRZ.  In  any 
case,  VALUE  and  INDEX  are  stored  in  VALZ  in  the  next  available  position. 

BRANCH-2 

If  there  is  only  one  table  there  is  no  need  to  save  it.  Otherwise,  the 
last  table  is  moved  to  TABLEZ  and  stored. 

BRANCH-3 

Every  element  of  the  old  tables  is  examined  looking  for  a match  for 
INDEX.  When  it  is  found  the  corresponding  value  is  returned  in  VALUE. 

BRANCH-4 

Any  TABLEZs  created  are  deleted. 

Subroutine  OFVAL  is  illustrated  in  figure  166. 
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Figure  167.  Subroutine  ORDER 
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9.39  Subroutine  PIECEIT 


PURPOSE: 


ENTRY  POINTS: 


To  plot  those  points  that  fall  within  the  limits 
of  the  graph  and  to  write  the  points  which  are 
off  the  graph  on  a tape  which  may  be  used  later 
to  produce  labeled  plots  which  can  be  pieced 
together  to  form  one  large  plot. 

PIECEIT,  PIECE1,  PIECE3,  PIECE4 


FORMAL  PARAMETERS:  X - x-coordinate  of  point 

Y - y-coordinate  of  point 
MODE  - Plotting  mode  indicator  (*  1 for  dotted 
line;  * 2 for  straight  line;  * 3 to  move 
with  pen  up;  * 4 to  change  pen  color) 
IYESN  - Indicator  if  point  is  on  the  graph  (*  0 
if  it  is  on  the  graph;  >0  if  it  is  off) 


COMMON  BLOCKS:  PLTPROJ,  PLTSPEC,  TAPES,  SNDMIN,  isup 

SUBROUTINES  CALLED:  DOTLINE,  INTPIECE,  ISOFF,  NEWPEN*,  PLOT* 


Method : 

When  PIECEIT  is  called,  the  mode  indicator  is  tested.  If  it  equals  4, 
only  the  color  of  the  pen  is  changed  and  the  PIECTAPE  is  written  with 
that  information.  Then  control  is  returned  to  the  calling  program. 

For  any  other  mode  subroutine  ISOFF  is  called  to  determine  if  the  point 
(X,Y)  falls  within  the  limits  of  the  graph.  If  IYESN  was  returned 
with  a value  greater  than  zero,  one  or  both  coordinates  of  point  (X,Y) 
are  off  the  graph.  No  plotting  is  performed  in  this  case.  The  point 
coordinates  and  mode  Indicator  are  output  on  the  PIECTAPE  and  saved 
for  the  next  call  on  PIECEIT. 

If  IYESN  was  returned  with  a value  of  zero,  point  (X,Y)  is  on  the 
graph.  The  information  saved  from  the  previous  point  is  tested  if  it 
was  on  the  graph  or  not.  If  it  was  off,  subroutine  INTPIECE  is  called 
to  position  the  pen  at  the  point  along  the  edge  of  the  graph  where  the 
line  connecting  the  previous  and  present  points  would  intersect  it. 

The  mode  indicator  is  tested  and  if  a dotted  line  is  requested,  sub- 
routine DOTLINE  is  called;  otherwise,  the  PLOT  routine  is  called  to 
draw  a line  or  move  the  pen  from  its  present  position  to  point  (X,Y). 
The  PIECTAPE  is  always  written  to  keep  all  the  information  for  further 
plots. 


These  are  standard  plotting  routines  and  not  documented  in  this 
manual.  They  are  only  included  for  completeness. 
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9 . 44  Function  RANGER 

PURPOSE: 

Calculate  great  circle  range  between  two  points 

ENTRY  POINTS: 

RANGER 

FORMAL  PARAMETERS: 

AL0N1  - 
AL0N2  - 
COSLTl  - 
SINLTl  - 
C0SLT2  - 
SINLT2  - 
COSRNG  - 

Longitude  of  first  point 

Longitude  of  second  point 

Cosine  of  first  point's  latitude 

Sine  of  first  point's  latitude 

Cosine  of  second  point's  latitude 

Sine  of  second  point's  latitude 

Cosine  of  output  range 

COMMON  BLOCKS: 

None 

SUBROUTINES  CALLED: 

None 

CALLED  BY: 

TOFM 

Method: 

This  function  calculates  standard  great  circle  distance  using  spherical 
trigonometry. 

Function  RANGER  is  illustrated 

in  figure  174. 
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Figure  174.3.  Function  RANGER 
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9.45  Subroutine  REORDER 


PURPOSE : To  rearrange  from  one  to  seven  arrays  into  the 

sequence  specified  by  the  ele^nts  of  an  index 
array. 

ENTRY  POINTS:  REORDER 


FORMAL  PARAMETERS: 


COMMON  BLOCKS: 


ISEQ  - (Fixed  point)  sequence  k'jy  array  of  the 
type  produced  by  subroutine  ORDER 

NEL  - (Fixed  point)  number  of  elements  to  be 
reordered  in  each  array 

NAR  - (Fixed  point)  number  of  arrays  which  are 
to  be  reordered 

L1-L7  - (Fixed  point  or  floating  point)  names  of 

the  arrays  which  are  to  be  reordered;  if 
the  number  of  these  arrays  is  less  than 
seven,  the  remaining  positions  must  be 
filled  by  trailing  dummy  arguments 

None 


SUBROUTINES  CALLED:  None 


Method ; 

Subroutine  REORDER  operates  in  the  following  manner.  First,  it  stores  one 
element  from  each  array  in  a temporary  location.  It  then  reads  from  the 
array  ISEQ  the  element  which  should  go  in  that  position  (which  may  now 
be  considered  empty)  and  moves  it,  filling  that  position  and  creating  a 
new  blank.  This  is  repeated  for  the  corresponding  element  of  each  array 
being  reordered.  Each  new  blank  spot  is  filled  with  its  proper  contents 
as  soon  as  its  original  contents  have  been  moved,  until  the  element  cur- 
rently in  temporary  storage  is  required.  When  this  happens,  subroutine 
REORDER  finds  another  element  which  is  not  already  in  its  sequence  and 
puts  it  into  temporary  storage  and  continues  as  before  until  no  elements 
are  out  of  sequence. 


The  contents  of  the  array  ISEQ  are  returned  to  the  calling  program 
unchanged,  so  that  subroutine  REORDER  may  be  called  again,  using  the  same 
sequence  key  array  if  more  than  seven  arrays  are  to  be  reordered. 

Subroutine  REORDER  is  illustrated  in  figure  175. 


9.46  Subroutine  SETORD 


PURPOSE: 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


This  routine  manipulates  the  bits  of  words  to  be 
ordered  by  subroutine  ORDER  to  create  a string 
of  bits  whose  significance  is  decreasing  from 
left  to  right. 

SETORD,  RESORD 

ARRAY  - The  array  to  be  ordered  by  ORDER 
N - Number  of  elements  in  the  array 

ISEQ  - The  sequence  array  to  be  set  by  ORDER 

None 

None 

ORDER 


Method : 

This  subroutine  is  called  only  by  subroutine  ORDER.  Entry  SETORD  is  used 
before  ordering  to  set  the  bits  of  the  words  to  be  ordered  into  a format 
more  amenable  to  ordering.  Entry  RESORT  is  used  to  restore  the  bit  con- 
figuration of  the  input  array  to  its  original  value. 

On  the  HIS  6000  series  computer  a floating  point  word  consists  of  a nine- 
bit  exponent  and  a 27-bit  mantissa.  The  bits  are  numbered  zero  to  35 
going  left  to  right.  Bit  zero  is  the  sign  bit  for  the  exponent  (zero 
for  positive,  one  for  negative);  bits  one  through  eight  are  the  exponent 
value;  bit  nine  is  the  mantissa  sign  bit  (zero  for  positive,  one  for 
negative);  and  bits  10  through  35  are  the  mantissa  value.  For  floating 
point  value,  the  most  significant  bit  is  bit  nine  which  determines  the 
sign  of  the  value.  Then  bits  zero  through  eight  are  the  next  signifi- 
cant, followed  by  10  through  35  as  least  significant.  However,  subroutine 
ORDER  requires  that  bit  significance  decrease  monotonically  from  left  to 
right.  Subroutine  ORDER  also  assumes  that  a value  of  one  for  a bit  signi- 
fies a higher  value  than  the  value  zero.  This  convention  is  contrary  to 
the  HIS  convention  for  sign  bits. 

Therefore,  entry  SETORD  revises  the  bit  configuration  of  the  word 
according  to  the  following  scheme.  Bits  10  through  35  of  the  new  word 
(at  exit  from  SETORD)  are  equal  to  bits  10  through  35  of  the  old  word 
(at  entry  to  SETORD).  Bits  two  through  nine  of  the  new  word  are  equal 
to  bits  one  through  eight  of  the  old  word.  Bit  one  of  the  new  word  is 
equal  to  the  complement  of  bit  zero  of  the  old  word  and  bit  zero  of  the 
new  word  is  equal  to  the  complement  of  bit  nine  of  the  old  word.  This 
scheme  produces  a word  in  which  bit  significance  decreases  monotonically 
from  left  to  right. 
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9.52  Subroutine  SVTP 


PURPOSE: 


To  save  a random  disk  file  on  tape  or  load  one 
from  tape 


ENTRY  POINTS: 


FILLOD,  FILSAV 


FORMAL  PARAMETERS: 


COMMON  BLOCKS: 


FROM:  File  code  of  input 

TO:  File  code  of  output 

FILE:  Number  of  file  on  multifile  tape  to  be 

used  (may  be  omitted) 

None 


SUBROUTINES  CALLED:  None 


CALLED  BY:  SRM 


Method: 


The  method  for  both  entry  points  is  approximately  the  same.  The  input 
and  output  codes  are  retrieved  and  the  third  parameter  (FILE)  is 
checked  for.  If  It  is  omitted  the  first  tape  file  is  used.  A 4k 
buffer  is  now  created  and  the  file  control  blocks  set  up.  The  input 
and  output  codes  are  checked  for  validity  and  it  is  assured  that  one 
is  tape  and  the  other  random  disk.  Here  the  entry  points  differ  in 
that  the  input  unit  to  FILLOD  must  be  tape  and  the  output  from  FILSAV 
must  be  tape.  The  files  are  now  opened,  depending  on  the  third  param- 
eter, the  tape  is  spaced  to  the  proper  file.  The  subroutine  now  loops 
through  reads  from  input  and  writes  to  output  until  the  input  unit  is 
exhausted.  Then  the  files  are  closed. 


Subroutine  SVTP  is  illustrated  in  figure  182. 
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Figure  182.  Subroutine  SVTP:  Entry  FILSAV 
(Part  5 of  5) 
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Figure  185*  Subroutine  TIMEME 
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9.56  Function  TOFM 


PURPOSE:  Compute  time  of  flight  for  missile  weapons  between 

two  sets  of  earth's  coordinates.  Two  methods  of 
calculations  are  coded.  One  assumes  a nonrotating 
earth;  the  other  a rotating  earth. 


ENTRY  POINTS: 

TOFM 

FORMAL  PARAMETERS: 

WLAT 

WLONG 

- Latitude  of  missile  launch 

- Longitude  of  missile  launch 

(deg) 

TLAT 

- Latitude  of  target  (deg) 

TLONG 

- Longitude  of  target 

NAMWEP 

- Missile  type  name 

COMMON  BLOCKS: 

MISSLE, 

TARGET,  TSTUFF 

SUBROUTINES  CALLED: 

AZMUTH, 

DISTF , ITLE,  LUNCH,  MISDATA, 

RANGER 

Method: 

On  the  first  call,  MISDATA  is  called  to  load  the  /MXSSLE/  block.  The 
input  type  name  (NAMWEP)  is  checked  against  the  list  of  names  for  which 
there  is  data  (NAMES).  If  found,  time  of  flight  is  computed  according 
to  the  method  described  in  "Program  TRAJECT(u)  - Foreign  Missile  Flight 
Simulation  Software  - 29  Jan  79,"  5447H,  Aerospace  Reconnaissance 
Technical  Wing  (SAC),  Offutt  AFB,  Nebraska  - Trajectory  Division. 

If  the  name  is  not  among  those  for  which  there  is  data,  time  of  flight 
la  calculated  assuming  a nonrotating  earth.  Time  of  flight  for  a missile 
weapon  is  calculated  based  on  distance  between  launch  and  target  (DIST) , 
constant  (CMISS) , and  attribute  TOFMIN  and  RNGMIN  (CMISS,  TOFMIN  and  RNGMIN 
are  obtained  from  block  /TSTUFF/) . Constant  CMISS  is  computed  for  each 
missile  type  using  attributes  RANGE,  TOFMIN  RNGMIN  and  SPEED. 

(RANGE /SPEED)  - TOFMIN 
* (RANGE  - RNGMIN) 

Time  of  flight  then  equals 

TOFMIN  + CMISS  (DIST  - RNGMIN)*9 

Function  TOFM  is  illustrated  in  figure  186. 
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9.57  Subroutine  UN CODE 

PURPOSE ; To  decode  an  instruction  code 

ENTRY  POINTS;  UNCODE 

FORMAL  PARAMETERS;  INP:  Input  instruction  code 

IW:  (bits  29-32)  +1 

IX:  bits  33-35 

IY:  (bit  33)  +1 

IZ:  bits  34-35 

COMMON  BLOCKS:  None 

SUBROUTINES  CALLED;  None 

Method: 

The  method  is  to  use  FLD  to  break  INP  into  IW,  IX,  IY,  and  IZ 
Subroutine  UNCODE  is  illustrated  in  figure  187. 


Figure  189.  Function  VALTAR 


871 


9.61  Subroutine  XMATH 


PURPOSE: 


ENTRY  POINTS: 


FORMAL  PARAMETERS: 


COMMON  BLOCKS: 


To  execute  mathematical  calculations 


XMATH 


BEGIN: 

END: 


Array  of  internal  variables  to  be  used 
in  calculations 

Index  of  first  Instruction  code 
Index  of  end  of  calculation 


SUBROUTINES  CALLED:  INSGET,  IORFL,  OFVAL,  UNCODE 

Method: 

This  subroutine  is  best  understood  by  reference  to  figure  191.  Basically 
the  instructions  retrieved  from  INSGET  starting  with  BEGIN  and  ending 
with  END  are  executed.  In  the  process,  values  will  be  stored  in  X 
which  is  used  for  Internal  variables.  The  current  value  is  maintained 
locally  in  Q and  the  new  value  is  stored  locally  in  R.  For  each  instruc- 
tion a branch  (IBR)  is  set  and  then  the  remainder  of  the  instruction  is 
used  to  determine  the  value  of  R.  Then  the  branch  is  made  and  whatever 
operation  on  Q and  R is  called  for  is  carried  out  with  the  result 
placed  in  Q. 
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COP  EXTERNAL  COMMON  BLOCKS 


This  appendix  contains  those  cosanon  blocks  used  to  cooounlcate  between 
the  COP  and  related  nodules  of  the  QUICK  system.  The  appendix  contains 
the  following  common  blocks: 


o 

CIO 

IDS  Consunlcatlons  control  block 

o 

C15 

Header  reference  codes 

o 

C20 

Record  type  name  and  number 

o 

C30 

Data  base  attributes 

o 

C40 

Utility  table 

o 

C50 

Display  table 

o 

ERRCOM 

IDS  error  code  control  block 

o 

INS 

Input  Instruction  code  buffer 

o 

IPGT 

Input  card  image  buffer 

o 

OOPS 

Error  flag 

o 

STRING 

Interpreted  Input  character  string 

i 
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BLOCK 

CIO 

C15 

C20 

C30 

C40 

C50 

ERRCOM 


qy  AWAY 

UtEFZ 

MQ(2) 

IRECTF 

HQ 

ERCODE 

NQ2 

HEADRF 


RNAME 

RNUMB 

MAIN (306) 


TABREF 
TABLE (100) 

DSPTAB(IOO) 

NORMAC 

CHCKAC 

ERUNIT 

NUMCHK 

CHEKS(30) 


DESCRIPTION 

IDS  coaunicatlons  control  block 

Binary  rafarance  coda,  updated 
whenever  IDS  action  takes  place 

(Not  used) 

Record  type  number,  updated  whenever 
IDS  action  takes  place 

(Not  used) 

IDS  error  code 

(Not  used) 

Header  reference  code.  BCD  represen- 
tation. Variable  Is  type  character 
*8 

Contains  values  for  record  type  INDRCT 
Record  type  name 
Record  type  number 

Contains  all  data  base  attributes. 

For  precise  attributes  definition 
and  their  addresses  within  the  array 
see  Users  Manual,  Volume  I 

Utility  table  (TABLEZ) 

TABLEZ  BCD  reference  code  (type  Is 
character*8) 

Body  of  table 

Display  table  (DISPDT) 

Body  of  table  (see  section  6) 

Action  to  take  If  error  code  Is  not 
In  list  CHEKS  (ABORT,  FLAG,  PASS) 

Action  to  take  If  error  code  Is  In 
list  CHEKS 

Unit  on  which  to  print  error  message 
Number  of  error  codes  in  CHEKS  list 
List  of  error  codes  to  check 
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APPENDIX  B 


EXECUTABLE  JOB  CONTROL  LANGUAGE  (JCL) 
QUICK  SYSTEM 


The  QUICK  system  executes  from  an  H*(HIS6000  System  Loadable  file). 
Figure  194  contains  the  JCL  necessary  to  build  the  H*  directly  from 
source  files.  Note  that  within  the  FORTY  activity  for  each  link  an 
object  file  (catalog  632IDPOO/QUIK/OBJECT)  Is  also  created.  Figure 

195  contains  the  JCL  to  recreate  the  H*  from  these  object  files,  la 
effect,  the  programmer  needs  only  replace  the  SELECT  of  the  object 
deck  with  the  corresponding  FORTY  activity  for  each  overlay  link  in 
which  the  source  has  changed  to  recreate  the  H*.  Finally,  figure 

196  contains  the  JCL  to  create  the  QUICK  utility  library  from  source. 


r 


IDENT  18205 10/30/5162, CQMPL 

USERID  632IDP99$PASSWORD/UZZ 
LIMITS  30,60K,,50K 
OPTION  FORTRAN, NOGO 
LIBRARY  UL,PL 
LOWLOAD 

ENTRY  

FORTY  MAP, XREF, DECK 

PRMFL  C* , W , S , 6 3 2 IDPOO/ QU IK/OB JECT/ COP 

SELECT  632IDPOO/ QUIK/ SOURCE/ COP/ COP 
SELECT  632IDPOO/QUIK/SOURCE/COP/BANNER 
SELECT  632IDPOO/QUIK/ SOURCE/COP/ERPROC 
SELECT  632IDPOO/QUIK/SOURCE/COP/HDFND 
SELECT  632IDPOO/QUIK/SOURCE/COP/INICOP 
SELECT  632IDP00/QUIK/ SOURCE/ COP/INPRIN 
SELECT  632IDP00/ QUIK/ SOURCE  /COP/ INSPUT 
SELECT  632IDPOO/QUIK/SOURCE/COP/MODGET 
IDS  DECK 

LIMITS  30,60K,,50K 
FILE  *3,X3R, 100R 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/QDATA 
SELECT  632IDP00/QUIK/ SOURCE/ COP/ QDATA 
SELECT  632IDP00/ QUIK/ SOURCE/ COP/ QDATB 
USE  .QMAX/l/,.QAREA/3126/,.qMIN/l/,.FRRD. 

LINK  BOOTT 

FORTY  MAP, XREF, DECK 

PRMFL  C*,W, S , 632IDP00/QUIK/ OBJECT/BOOT 

SELECT  632IDP00/ QUIK/ SOURCE/BOOT 
SELECT  632IDPOO/ QUIK/ SOURCE/ COP/DCTFND 
SELECT  632IDP00/ QUIK/ SOURCE/COP/MNMFND 
SELECT  632IDPOO/ QUIK/ SOURCE/ COP/NUMFND 
SELECT  632IDP00/ QUIK/ SOURCE/ COP/RNMFND 
SELECT  632IDP00/ QUIK/ SOURCE/COP/ SEEKER 
SELECT  632IDPOO/QUIK/SOURCE/COP/STRMAK 
LINK  TABSTR, BOOTT 

USE  TABLZ/808/ 

LINK  ERRF 

FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/ERRFND 
SELECT  6323DPOO/QUIK/SOURCE/COP/ERRFND 
SELECT  632IDPOO/QUIK/SOURCE/COP/LNGSTR 
SELECT  632IDPOO/QUIK/SOURCE/COP/SYNTAX 
SELECT  632IDP00/ QUIK/ SOURCE/COP/TAB INS 
SELECT  6 32 IDPOO/ QUIK/ SOURCE/ COP/WEBSTR 
LINK  INPT.ERRF 

FORTY  MAP, XREF, DECK 


Figure  194.  H*  Creation  From  Source  (Part  1 of  11) 
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PRMFL  C*,W, S.632IDP00/QU IK/OB JECT/INPTRN 

SELECT  632IDP00/ QUIK/ SOURCE/ COP/ INPTRN 
SELECT  632IDP00/QUDC/ SOURCE/ COP/DELTAB 
SELECT  632 IDPOO/ QUIK/ SOURCE/ COP/ INMATH 
SELECT  632IDPOO/ QUIK/ SOURCE/ COP/LINE 10 
SELECT  632IDP00/QUIK/ SOURCE/ COP/PARLEV 
SELECT  632IDP00/ QUIK/ SOURCE/ COP/TABGET 
LINK  JLM.TABSTR 
FORTY  MAP, XREF, DECK 

PRMFL  C*,  W, S , 632IDP00/ QUIK/ OBJECT/ JLM 

SELECT  632IDPOO/QU IK/SOURCE/ JLM/ JLM 
LINK  ASSI 
FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/ASSIGN 
SELECT  632IDPOO/QUIK/ SOURCE/ JLM/ ASSIGN 
SELECT  632IDPOO/QU  DC/ SOURCE/ JLM/ ALPHAS 
SELECT  632IDP00/ QUDC/ SOURCE/ JLM/ PLAYERS 
SELECT  632IDPOO/QU  DC/ SOURCE/ JLM/TOPRINT 
LINK  SELE,ASSI 
FORTY  MAP, XREF, DECK 

PRMFL  C* , W , S , 6 32 IDPOO/ QUDC/ OBJECT/ SELECT 

SELECT  632IDPOO/ QUDC/ SOURCE/ JLM/ SELECT 
SELECT  632IDP00/ QUDC/ SOURCE/ JLM/ ADTOBASE 
SELECT  632 IDPOO / QU  DC  / SOURCE / JLM/ DEFAULT 
SELECT  632IDPOO/QUIX/SOURCE/ JLM/KRUNCH 
SELECT  632IDPOO/ QUDC/ SOURCE/ JLM/  SAMSET 
LINK  ASTE.SELE 
FORTY  MAP, XREF, DECK 

PRMFL  C*,W, S .632IDPOO/QUDC/OBJECT/ ASTERISK 

SELECT  632IDPOO/QUDC/ SOURCE/ JLM/ASTERISK 

LINK  DATA, JLM 

FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUDC/OBJECT/DATA 

SELECT  632IDPOO/QUIK/SOURCE/DATA/DATA 

LINK  DATADL 

FORTY  MAP, XREF, DECK 

PRMFL  C*,W, S, 6 32 IDPOO/ QUDC/ OBJECT/DELETE 

SELECT  632IDPOO/ QUDC/ SOURCE/DATA/DELETE 
LINK  DATACH, DATADL 

FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDP00/qU  DC/OBJECT/CHANGE 
SELECT  632IDPOO/QU  DC/SOURCE/DATA/ CHANGE 
SELECT  632IDPOO/QUDC/SOURCE/DATA/DESSCH 
SELECT  632IDPOO/QUIK/SOURCE/DATA/NXTDES 


| Figure  194.  (Part  2 of  11) 
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SELECT  632IDP00/QUIK/ SOURCE/DATA/ VALPUT 
LINK  DATACR, DATACH 

FORTY  MAP, XREF, DECK 

PRMFL  C*,W, S,632IDP00/ QUIK/OBJECT/CREATE 

SELECT  632IDP00/ QUIK/ SOURCE/DATA/ CREATE 
SELECT  632IDPOO/ QUIK/ SOURCE/DATA/ VALPUT 
LINK  DBMOD , DATA 

FORTY  MAP, XREF .DECK 

PRMFL  C*,W,S,632IDPOO/Q[JIK/OBJECT/DBMOD 
SELECT  632IDPOO/QUIK/S<XJRCE/DBMOD/DBMOD 
SELECT  632IDP00/ QUIK/ SOURCE/ DBMOD/ DESTAB 
LINK  INDXER,  DBMOD 

FORTY  MAP, XREF, DECK 

PRMFL  C*,  W,  S , 632IDP00/ QUIK/ OBJECT/ INDEXER 

SELECT  632IDP00/ QOIK/ SOURCE/ INDEXER/ INDEXER 
SELECT  632IDPOO/ QUIK/ SOURCE/ INDEXER/ COMPLEX 
SELECT  632IDP00/ QUIK/ SOURCE/ INDEXER/ CRTBLE 
SELECT  632IDPOO/ QUIK/SOURCE/ INDEXER/ SETVAL 
SELECT  632IDP00/ QUIK/SOURCE/ INDEXER/ VLRAD I 
LINK  PLANS, INDEXER 

FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDP00/ QUIK/OB JECT/PLANSET 

SELECT  632IDP00/ QUIK/ SOURCE/PLANSET/PLANSET 
SELECT  632IDPOO/ QUIK/SOURCE/PLANSET/ ADJUSTGP 
SELECT  632IDP00/ QUIK/ SOURCE/PLANSET/CALCOMP 
SELECT  632IDP00/ QUIK/ SOURCE /PLANSET/GRPEM 
SELECT  632IDPOO/QUIK/SOURCE/PLANSET/PRINTGP 
SELECT  632IDPOO/QUIK/SOURCE/PLANSET/SRTTGT 
SELECT  6 32 ID POO/ QUIK/ SOURCE/PLANSET/TANKER 
SELECT  632IDP00/QUIK/ SOURCE/PLANSET/VLRADP 
LINK  PREP, PLANS 

FORTY  MAP , XREF , DECK 

PRMFL  C*,W, S.632IDP00/ QUIK/OBJECT/PREPALOC 
SELECT  632IDP00/ QUIK/ SOURCE /PREPALOC/PREPALOC 
SELECT  632IDP00/ QUIK/SOURCE/PREPALOC/CHGBAS 
SELECT  632IDPOO/ QUIK/SOURCE/PREPALOC/FIXWEP 
SELECT  632IDPOO/ QUIK/SOURCE/PREPALOC /GEOIN 
SELECT  632IDP00/ QUIK/  SOURCE/PREP  ALOC/GEOPREP 
SELECT  632IDP00/QUIK/ SOURCE/PREPALOC/PRNPRP 
SELECT  632IDP00/ QUIK/ SOURCE/PREPALOC/SETRD 
SELECT  632IDP00/QUIK/ SOURCE/PREP ALOCAfEPIN 
SELECT  632 IDPOO /QUIK / SOURCE / PREPALOC/WEPPREP 
LINK  EDIT, PREP 
FORTY  MAP, XREF, DECK 

PRMFL  C*,W, S, 632IDP00/ QUIK/OBJECT/EDITDB 
SELECT  632IDP00/ QUIK/ SOURCE/ED ITDB/EDITDB 
LINK  ECOUNT 
FORTY  MAP, XREF, DECK 

I Figure  194.  (Part  3 of  11) 
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PRMFL  C*, W, S , 632IDP00/ QUIK/ OBJECT/COUNTS 

SELECT  632IDPOO/ QUIK/SOURCE/EDITDB/COUNTS 
LINK  EGENED , ECOUNT 
FORTY  MAP , XREF , DECK 

PRMFL  C*,W,S, 632 IDPOO/ QUIK/OB JECT/GENEDIT 

SELECT  632IDP00/ QUIK/SOURCE/EDITDB/ GENED IT 
SELECT  632IDPOO/QUIK/SOURCE/EDITDB/BUILDTAB 
SELECT  6 32IDPO0/ QUIK/ SOURCE/ED ITDB/FORMLOC 
SELECT  632IDPO0/QUIK/ SOURCE/EDITDB/ SETFLD 
SELECT  632IDPOO/QUIK/ SOURCE/EDITDB/ SWITH 
LINK  ENORMA, EGENED 
FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDP00/ QUIK/OB JECT/NORMAL 

SELECT  632IDPOO/QU3K/SOURCE/EDITDB/NORMAL 
LINK  EPROCE,  ENORMA 
FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDP00/ QUIK/OB JECT/PROCEDTT 

SELECT  632IDPOO/ QUIK/SOURCE/EDITDB/PRQCEDIT 
SELECT  632IDPOO/ QUIK/ SOURCE/ED ITDB/XWITH 
LINK  REPORT, EDIT 
FORTY  MAP , XREF , DECK 

PRMFL  C*,W, S ,632lDPOO/QUIK/ OB JECT/REPORT 

SELECT  632IDPOO/QUIK/ SOURCE/REPORT/REPORT 
SELECT  632IDPOO/QUIK/SOURCE/REPORT/DSPPUT 
SELECT  632 IDPOO /QUIK/ SOURCE/REPORT/ TABMNT 
LINK  RPTDSN 
FORTY  MAP, XREF, DECK 

PRMFL  C*,W, S,632IDP00/ QUIK/ OBJECT/DESIGN 

SELECT  632 IDPOO /QUIK/ SOURCE / REPORT/ DES IGN 
L INK  RPTALT , RPTDSN 

FORTY  MAP , XREF, DECK 

PRMFL  C*,W,S ,632IDP00/ QUIK/OB JECT/ ALTER 

SELECT  6 32 IDPOO/ QUIK/ SOURCE/REPORT/ ALTER 
LINK  RPTDMK, RPTALT 

FORTY  MAP, XREF, DECK 

PRMFL  C*, W, S,632IDP00/ QUIK/OB JECT/DSPMAK 

SELECT  632IDPOO/QUIK/SOURCE/REPORT/DSPMAK 
LINK  RPTPRN, RPTDMK 

FORTY  MAP , XREF , DECK 

PRMFL  C*,W,S,632IDP00/QU IK/OBJECT/PRINT 

SELECT  632  IDPOO/  Q(J  IK  / SOURCE/REPORT/PRINT 
SELECT  632IDPOO/QUIK/ SOURCE/REPORT/PRNATD 
SELECT  632IDPOO/ QUIK/SOURCE/REPORT/XDEFN 
LINK  SRM,  REPORT 

FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/SRM 


Figure  19A.  (Part  4 of  11) 
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$ 

SELECT 

632IDP00/ QU3K/SOURCE/SRM/SRM 

$ 

LINK 

EIM.SRM 

$ 

FORTY 

MAP, XREF, DECK 

C* , W , S , 6 32 IDPOO  / QUIK  /OB  JECT/  E IM 

$ 

PRMFL 

$ 

SELECT 

632IDPOO/ QUIK/SOURCE/EIM/EIM 

$ 

SELECT 

632IDPOO/ QUIK/ SOURCE/EIM/ CONVLL 

$ 

LINK 

BSIDAC 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C*,W, S, 632 IDPOO/ QUIK/OBJECT/SIDAC 

632IDPOO/ QUIK/ SOURCE/EIM/ SIDAC 

$ 

SELECT 

$ 

LINK 

BOTHER, BSIDAC 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* , W, S , 632IDPOO/QUIK/OB JECT/BLDOTH 

632IDPOO/ QUIK/SOURCE/EIM/BLDOTH 

$ 

SELECT 

$ 

SELECT 

632IDPOO/ QUIK/ SOURCE/EIM/ XEDEFN 

$ 

LINK 

BTABLE, BOTHER 

$ 

FORTY 

MAP, XREF, DECK 

632IDP00/ QUIK/ OBJECT/TABLE 

$ 

PRMFL 

$ 

SELECT 

6 32 IDPOO/ QUIK/ SOURCE/EIM/TABLE 

$ 

LINK 

PLOTTT, BTABLE 

$ 

FORTY 

MAP, XREF, DECK 

632IDP00/ QUIK/ OBJECT/PLOTDATA 

$ 

DRMFL 

$ 

SELECT 

632IDPOO/ QUIK/SOURCE/EIM/PLOTDATA 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/EIM/PICS 

$ 

SELECT 

6 32 IDPOO /QUIK/ SOURCE/ EIM/PROJCT 

$ 

LINK 

PLOTIT, PLOTTT 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C*, W, S ,632IDPOO/QUIK/ OBJECT/PLOTIT 

$ 

SELECT 

6 31IDP00 / QUIK/ SOURCE/ EIM/PLOTIT 

$ 

SELECT 

631 IDPOO / QUIK/ SOURCE/EIM/ FNDS  RT 

$ 

SELECT 

6 31IDPOO / QUIK/ SOURCE/EIM/ INTRPL 

$ 

SELECT 

631IDPOO/QUIK/ SOURCE/ EIM/PICS 

$ 

SELECT 

631IDP00/QUIK/ SOURCE/EIM/ 

$ 

SELECT 

6 31 IDPOO / QU IK/ SOURCE / EIM/ PLOT INIT 

$ 

SELECT 

6 31 IDPOO / QUIK/ SOURCE / EIM/ PRO JCT 

$ 

SELECT 

6 31IDPOO /QUIK/ SOURCE/EIM/ SUBPLOT 

$ 

SELECT 

631IDPOO/QUIK/ SOURCE/EIM/ SUBREAD 

$ 

LINK 

ALOC.EIM 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* , W , S , 6 32 IDPOO/ QU IK/OBJECT / ALOC 

$ 

SELECT 

6 32 IDPOO/ QUIK/ SOURCE/ ALOC/ ALOC 

$ 

LINK 

ALCINT 

$ 

FORTY 

MAP, XREF, DECK 

$ 

PRMFL 

C* , W , S , 6 32 IDPOO/ QUIK/OB JECT/ ALCINT 

$ 

SELECT 

632IDP00/QUIK/ SOURCE/ ALOC/ INITAL 

’igure  194. 
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SELECT  6 32 IDPOO / QUIK/ SOURCE/ ALOC/ STALL 
SELECT  632IDPOO/QUIK/ SOURCE/ ALOC/FORMATS 
SELECT  632 IDPOO / QUIK/ SOURCE/ ALOC/ FMUP 
SELECT  632IDPOO/ QUIK/SOURCE/ALOC/LAMGET 
SELECT  6 32 IDPOO /QUIK/ SOURCE/ ALOC /PREMIUMS 
SELECT  632IDPOO/ QUIK/ SOURCE/ ALOC/PRNTOS 
SELECT  632IDPOO/QUIK/SOURCE/ALOC/SALVAL 
SELECT  6 32IDP00/QUIK/ SOURCE/ ALOC/ SPLIT 
SELECT  632IDP00/ QUIK/SOURCE/ALOC/WAD 
SELECT  632IDPOO/ QUIK/ SOURCE/ ALOC/WADOUT 
LINK  DEFAL , STAL 
FORTY  MAP, XREF, DECK 

PRMFL  C* , W, S , 6 32 IDPOO /QUIK/ OEJECT/DEFAL 

SELECT  6 32IDPOO/ QUIK/ SOURCE/ ALOC/DEFALOC 
SELECT  6 32 IDPOO/ QUIK/ SOURCE/ ALOC /FMUP 
SELECT  6 32 IDPOO/ QUIK/ SOURCE/ ALOC/LAMGET 
SELECT  632IDPOO/QUIK/SOURCE/ALOC/PREMIUMS 
SELECT  632IDP00/ QUIK/ SOURCE/ ALOC/PRNTOD 
SELECT  6 32IDPOO/ QUIK/ SOURCE/ ALOC/ RESVAL 
SELECT  632IDPOO/ QUIK/ SOURCE/ ALOC/ SALVAL 
LINK  EVAL , ALOC 

FORTY  MAP ,XREF ,DECK 

PRMFL  C* , W, S ,632 IDPOO / QUIK/ OBJECT / EVALALOC 

SELECT  632 IDPOO / QUIK/ SOURCE/ EVALALOC / EVALALOC 
SELECT  632IDPOO/QUIK/SOURCE/EVALALOC/EVALPLAN 
SELECT  632IDPOO/QUIK/SOURCE/EVALALOC/EVAL2 
SELECT  632IDP00/QUIK/ SOURCE/EVALALOC/PREVAL 
SELECT  632IDPOO/QUIK/SOURCE/EVALALOC/SSSPCALC 
SELECT  632 IDPOO / QUIK/ SOURCE/ EVALALOC /TGTMODIF 
SELECT  632IDPOO/QUIK/SOURCE/EVALALOC/WPNMODIF 
LINK  DGZSEL , EVAL 

FORTY  MAP , XREF , DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/ ALOCOUT 

SELECT  6 32 IDPOO / QUIK/ SOURCE/ ALOCOUT/ ALOCOUT 
LINK  OFFSET 
FORTY  MAP, XREF, DECK 

PRMFL  C* , W, S , 632IDPOO/QUIK/ OBJECT/ OFFSET 

SELECT  632IDPOO/QUIK/SOURCE/ALOCOUT/COMPRESS 
SELECT  632IDPOO/ QUIK/SOURCE/ALOCOUT/ CUMINV 
SELECT  632IDPOO/QUIK/SOURCE/ ALOCOUT/DGZ 
SELECT  6 32IDP00/ QUIK/ SOURCE/ ALOCOUT /ERGOTl 
SELECT  6 32 IDPOO / QUIK/ SOURCE/ ALOCOUT / FINDMIN 
SELECT  632 IDPOO / QU IK/ SOURCE/ ALOCOUT / F2  BMIN 
SELECT  632IDP00/ QUIK/ SOURCE/ ALOCOUT/GRADF 
SELECT  6 32IDP00/ QUIK/ SOURCE/ ALOCOUT /MOVE 
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SELECT  6 3 2 IDPOO / QUIK/ SOURCE/ ALOCOUT / PERTBLD 
SELECT  6 32IDPOO /QUIK/ SOURCE/ ALOCOUT/PROCCOMP 
SELECT  632 IDPOO / QUIK/ SOURCE/ ALOCOUT / SEECALC 
SELECT  632IDPOO/QUIK/SOURCE/ALOCOUT/SEEINPUT 
SELECT  632 IDPOO /QUIK/  SOURCE/ ALOCOUT/ VAL 
SELECT  6 32 IDPOO/ QUIK/ SOURCE/ ALOCOUT/ VMARG 
SELECT  632IDP00/ QUIK/ SOURCE/ ALOCOUT/WEPGET 
LINK  ASGSET, OFFSET 

FORTY  MAP , XREF , DECK 

PRMFL  C* , W , S , 6 32 IDPOO/QUIK/OB JECT/ ASGSET 

SELECT  632IDPOO/QUIK/SOURCE/ALOCOUT/SUMPRN 
LINK  MINIO, ASGSET 

FORTY  MAP , XREF , DECK 

PRMFL  C* , W,  S , 6 32 IDPOO/ QUIK/OB JECT/MINIO 

SELECT  6 32 IDPOO /QUIK/ SOURCE/ ALOCOUT/MINIOUT 
SELECT  6 32IDPOO/ QUIK/ SOURCE/ ALOCOUT/ CONVLL 
SELECT  632IDPOO/QUIK/SOURCE/ALOCOUT/FINDTIME 
SELECT  632IDPOO/QUIK/SOURCE/ALOCOUT/INFORM 
LINK  POST.DGZSEL 
FORTY  MAP , XREF .DECK 

PRMFL  C* , W. S , 6 32 IDPOO/ QUIK/ OBJECT /POSTALOC 

SELECT  632 IDPOO /QUIK/ SOURCE/ POSTALOC /POSTALOC 
SELECT  6 32 IDPOO /QUIK/ SOURCE /POSTALOC/ CENTROID 
SELECT  6 32 IDPOO / QUIK/ SOURCE/ POSTALOC / CHGPLAN 
SELECT  6 32 IDPOO /QUIK/ SOURCE /POSTALOC/ CORRP ARM 
SELECT  6 32IDPOO/QUIK/ SOURCE/POSTALOC/DIFF 
SELECT  632IDPOO/OUIK/SOURCE/POSTALOC/DUMPSRT 
SELECT  632 IDPOO /QUIK/ SOURCE/POSTALOC / EVALB 
SELECT  632IDPOO/QUIK/SOURCE/POSTALOC/EVALOA 
SELECT  6 32 IDPOO /QUIK/ SOURCE/POSTALOC / EVALOB 
SELECT  632 IDPOO/ QUIK/ SOURCE / POSTALOC/ FLTPLAN 
SELECT  6 32 IDPOO /QUIK/ SOURCE/POSTALOC / FLTROUTE 
SELECT  632IDPOO/QUIK/SOURCE/POSTALOC/GENRAID 
SELECT  6 32 IDPOO /QUIK/ SOURCE / POSTALOC / GETGROUP 
SELECT  632 IDPOO / QUIK/ SOURCE / POSTALOC / GETSORT 
SELECT  6 32 IDPOO /QUIK/ SOURCE/POSTALOC/ INITOPT 
SELECT  6 32 IDPOO/ QUIK/ SOURCE/POSTALOC/ INPOTGT 
SELECT  6 32 IDPOO / QUIK/ SOURCE/ POSTALOC/ NEXTFLT 
SELECT  632IDPOO/QUIK/SOURCE/POSTALOC/NOCORR 
SELECT  632IDP00/QUIK/ SOURCE/POSTALOC/OPTRAID 
SELECT  632 IDPOO/ QUIK/ SOURCE/POSTALOC/ OUTPOTGT 
SELECT  632 IDPOO/QUIK/SOURCE/POSTALOC/OUTSRT 
SELECT  6 32 IDPOO /QUIK/ SOURCE/ POSTALOC /PRERAID 
SELECT  632 IDPOO / QU IK/ SOURCE/POSTALOC /PRINTIT 
SELECT  6 32 IDPOO /QUIK/ SOURCE/ POSTALOC/PRNTF 
SELECT  632IDPOO/QUIK/SOURCE/POSTALOC/SETFLAG 
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SELECT  632IDP00/ QUIK/SOURCE/ ALOCOUT/PERTBLD 
SELECT  632 IDPOO / QUIK/ SOURCE / ALOCOUT / PROC COMP 
SELECT  6 32IDPOO / QUIK/ SOURCE/ ALOCOUT/ SEECALC 
SELECT  632IDPOO/QUIK/ SOURCE/ ALOCOUT/ SEEINPUT 
SELECT  632IDPOO/QUIK/SOURCE/ALOCOUT/VAL 
SELECT  6 32 IDPOO/ QUIK/ SOURCE/ ALOCOUT/ VMARG 
SELECT  6 32IDPOO /QUIK/ SOURCE/ ALOCOUT / WEPGET 
LINK  ASGSET, OFFSET 
FORTY  MAP, XREF, DECK 

PRMFL  C* , W , S , 6 32 IDPOO / QUIK/OB JECT/ ASGSET 

SELECT  6 32IDPOO/ QUIK/  SOURCE/ ALOCOUT/ SUMPRN 
LINK  MINIO, ASGSET 

FORTY  MAP, XREF, DECK 

PRMFL  C* , W, S , 6 32IDPOO/QUIK/OB JECT /MINIO 

SELECT  632IDPOO/QUIK/ SOURCE/ ALOCOUT/MINIOUT 
SELECT  6 32 IDPOO /QUIK/ SOURCE/ALOCOUT/CONVLL 
SELECT  6 32IDPOO /QUIK/ SOURCE/ ALOCOUT/ FINDTIME 
SELECT  632EDPOO/QUIK/ SOURCE/ ALOCOUT/INFORM 
LINK  POST.DGZSEL 
FORTY  MAP, XREF, DECK 

PRMFL  C* , W, S , 632IDPOO/QUIK/ OBJECT/ POSTALOC 

SELECT  632IDP00/ QUIK/SOURCE/POSTALOC/POSTALOC 
SELECT  632IDPOO/ QUIK/ SOURCE/POSTALOC/ CENTROID 
SELECT  6 32IDP00/QUIK/ SOURCE/POSTALOC/ CHGPLAN 
SELECT  6 32IDP00/QUIK/ SOURCE/POSTALOC/ CORRPARM 
SELECT  632IDPOO/QUIK/SOURCE/POSTALOC/DIFF 
SELECT  6 32IDP00/QUIK/ SOURCE/POSTALOC/ DUMPSRT 
SELECT  6 32 IDPOO /QUIK/ SOURCE / POSTALOC / EVALB 
SELECT  632 IDPOO / QUIK/ SOURCE/POSTALOC / EVALOA 
SELECT  6 32 IDPOO /QUIK/ SOURCE /POSTALOC / EVALOB 
SELECT  6 32 IDPOO /QUIK/ SOURCE / POSTALOC / FLTPLAN 
SELECT  6 32 IDPOO /QUIK/ SOURCE/POSTALOC/FLTROUTE 
SELECT  6 32IDPOO/QUIK/ SOURCE/POSTALOC/ GENRAID 
SELECT  632 IDPCO / QUIK/ SOURCE / POSTALOC / GETGROUP 
SELECT  6 32 IDPOO /QUIK/ SOURCE/POSTALOC / GETSORT 
SELECT  632IDPOO/ QUIK/ SOURCE/POSTALOC/ INITOPT 
SELECT  6 32 IDPOO/QUIK/ SOURCE/POSTALOC/ INPOTGT 
SELECT  632 IDPOO /QUIK/ SOURCE / POSTALOC/ NEXTFLT 
SELECT  6 32IDPOO/QUIK/ SOURCE/POSTALOC/NOCORR 
SELECT  632IDPOO/QUIK/SOURCE/POSTALOC/OPTRAID 
SELECT  632IDPOO/ QUIK/ SOURCE/POSTALOC/OUTPOTGT 
SELECT  632 IDPOO / QUIK/ SOURCE/POSTALOC / OUTSRT 
SELECT  6 32IDPOO /QUIK/ SOURCE /POSTALOC /PRERAID 
SELECT  632IDPOO/QUIK/SOURCE/POSTALOC/PRINTIT 
SELECT  632IDPOO/QUIK/SOURCE/POSTALOC/PRNTF 
SELECT  6322DPOO/QUIK/ SOURCE/POSTALOC/ SETFLAG 


I Figure  194.  (Part  8 of  11)  CH-2 


901.2 


-v>  \/>  <s>  </>  <s>  <s>  <r>  <s>  <r>  <J>  <s>  </>  <r>  </>  <s>  <r>  <s>  </>  -u>  </>  <n  <r>  </></></></></></></></></></></></>  <ft  </></></>  <r>  </></></></>  <s>  </> 


SELECT  6 32IDP00 /QUIK/ SOURCE/POSTALOC/ SORTOPT 
SELECT  632IDPOO/QUIK/SOURCE/POSTALOC/TGTASGN 
LINK  FOOT, POST 
FORTY  MAP, XREF, DECK 

PRMFL  C* , W , S , 6 32IDPOO /QUIK/ OBJECT / FOOTPRNT 

SELECT  6 32 IDPOO /QUIK/ SOURCE/ FOOTPRNT /FOOTPRNT 
LINK  OPTS 
FORTY  MAP, XRED, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/FOOTOPTS 
SELECT  632IDPOO/QUIK/SOURCE/FOOTPRNT/TAB2INPT 
SELECT  632IDPOO/QUIK/SOURCE/FOOTPRNT/MKAOS 
SELECT  6 32 IDPOO /QUIK/ SOURCE/FOOTPRNT/PRAOS 
SELECT  632IDPOO/QUIK/SOURCE/FOOTPRNT/PRINSETS 
SELECT  6 32IDPOO/QUIK/ SOURCE /FOOTPRNT /TAOS 
LINK  SETS, OPTS 
FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/FOOTSETS 
SELECT  632 IDPOO / QUIK/ SOURCE/ FOOTPRNT / NEWCOOR 
S ELECT  6 32 IDPOO / QUIK/ SOURCE / FOOTPRNT/ SETD  ATA 
LINK  PLAN, SETS 
FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632 IDPOO / QUIK/ OBJECT/ FOOTPLAN 

SELECT  6 32 IDPOO / QUIK/ SOURCE/ FOOTPRNT / AXES 
SELECT  6 32 IDPOO / QUIK/ SOURCE/ FOOTPRNT / DRIVER 
SELECT  632IDPOO/ QUIK/SOURCE/FOOTPRNT/ELLIPSE 
SELECT  6 32IDP00/ QUIK/ SOURCE/ FOOTPRNT/PATHFIND 
SELECT  6 32IDPOO/QUIK/SOURCE/FOOTPRNT /XAOS 
LINK  AS GN, PLAN 

FORTY  MAP, XREF, DECK 

PRMFL  C*,W, S , 6 32 IDPOO / QUIK/ OBJECT/ FOOT ASGN 

LINK  PLANO,  FOOT 
FORTY  MAP , XREF , DECK 

PRMFL  X* , W , S , 6 32 IDPOO/ QUIK/ OBJECT/PLANO 

SELECT  6 32 IDPOO /QUIK/ SOURCE/PLANOUT/PLANOUT 
SELECT  632IDPOO/QUIK/SOURCE/PLANOUT/ CL INDATA 
SELECT  632IDPOO/ QUIK/ SOURCE/ PLANOUT/CONVLL 
SELECT  6 32IDPOO/ QUIK/ SOURCE/PLANOUT/GEOGET 
SELECT  632IDPOO/QUIK/SOURCE/PLANOUT/SNAPCON 
SELECT  6 32IDPOO / QUIK/ SOURCE/PLANOUT/ SEPDATA 
SELECT  632IDPOO/ QUIK/ SOURCE/PLANOUT /XLL 
LINK  PLNT 
FORTY  MAP , XREF , DECK 

PRMFL  C* , W, S , 632IDP00/ QUIK/ OBJECT/ PLNT 

SELECT  6 32IDPOO/QUIK/ SOURCE/PLANOUT/PLNTPLAN 
SELECT  6 32 IDPOO /QUIK/ SOURCE/PLANOUT / ALTPLAN 
SELECT  632IDPOO/QUIK/SOURCE/PLANOUT/ADJUST 
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SELECT  6 32IDP00/QUIK/ SOURCE / PLANOUT / ALTERR 
SELECT  632IDP00/ QUIK/SOURCE/PLANOUT/CHGTIM 
SELECT  632IDP00/ QUIK/SOURCE/PLANOUT/DECOYADD 
SELECT  632IDPOO/QUIK/SOURCE/PLANOUT/DISTIME 
SELECT  632 IDPOO/ QUIK/ SOURCE / PLANOUT / FTNDME 
SELECT  6 32 IDPOO / QUIK/ SOURCE /PLANOUT / FLTSORT 
SELECT  6 32 IDPOO /QUIK/ SOURCE /PLANOUT / FLYPO INT 
SELECT  632 IDPOO /QUIK/ SOURCE /PLANOUT / INITANK 
SELECT  6 32IDPOO/ QUIK/ SOURCE/PLANOUT/KERPLUNK 
SELECT  632 IDPOO /QUIK/ SOURCE / PLANOUT / LAUNCH 
SELECT  632IDPOO/QUIK/SOURCE/PLANOUT/LNCHDATA 
SELECT  6 32IDPOO/QUIK/  SOURCE/PLANOUT/PLAN 
SELECT  632 IDPOO/ QUIK/ SOURCE/ PLANOUT / PLANBOMB 
SELECT  632IDPOO/QUIK/SOURCE/PLANOUT/PLANTMIS 
SELECT  632IDPOO/QUIK/SOURCE/PLANOUT/POST 
SELECT  632IDPOO/QUIK/SOURCE/PLANOUT/POSTLAUN 
SELECT  632IDPOO/QUIK/ SOURCE /PLANOUT/ SNAPIT 
SELECT  632 IDPOO / QUIK/ SOURCE / PLANOUT / SNAPOUT 
SELECT  6 32 IDPOO/ QUIK/ SOURCE/PLANOUT/SORBOMB 
SELECT  6 32 IDPOO /QUIK/ SOURCE /PLANOUT/ SWTCHALT 
LINK  INTR.PLNT 
FORTY  MAP ,XREF , DECK 

PRMFL  C* ,W»  S , 6 32IDPOO / QUIK/ OBJECT/ INTR 

SELECT  631IDPOO/QUIK/S  OURCE/ PLANOUT / INTRFACE 
SELECT  631IDPOO/QUIK/SOURCE/PLANOUT/ABOUT 
SELECT  6 31 IDPOO / QUIK/ SOURCE/ PLANOUT/FINDTIME 
SELECT  631IDPOO/ QUIK/SOURCE/PLANOUT/IAZIM 
SELECT  6 31 IDPOO / QUIK/ SOURCE/ PLANOUT / IFSET 
SELECT  631IDPOO/ QUIK/SOURCE/PLANOUT/ IFUNCT 
SELECT  6 32 IDPOO /QUIK/ SOURCE/PLANOUT/ INFORM 
SELECT  632 IDPOO/QUIK/SOURCE/PLANOUT/NOP 
SELECT  632 IDPOO / QUIK/ SOURCE/ PLANOUT / PRNTOFFS 
SELECT  6 32IDPOO / QUIK/ SOURCE / PLANOUT / RDCLAUSE 
SELECT  632IDPOO/ OUIK/ SOURCE/PLANOUT /STOUT 
SELECT  632 IDPOO / QUIK/ SOURCE /PLANOUT / XS ET 
LINK  TANK, INTR 

FORTY  MAP , XREF , DECK 

PRMFL  C* , W , S , 6 32 IDPOO /QUIK/ OBJECT /TANK 

SELECT  632IDPOO/ QUIK/SOURCE/PLANOUT/PLANTANK 
SELECT  632IDPOO/QUIK/ SOURCE/PLANOUT/PRNTAB 
SELECT  6 32 IDPOO/ QUIK/ SOURCE/ PLANOUT/ VAM 
LINK  DMAKE, PLANO 

FORTY  MAD, XRED, DECK 

PRMFL  C*,W,S,632 IDPOO /QUIK/ OBJECT / D ATAMAKE 

SELECT  632IDPOO/QUIK/ SOURCE/DATAMAKE/DATAMAKE 
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SELECT  632IDP00 /QUIK/ SOURCE/ DATAMAKE/ CALCOMP 
SELECT  6 32IDPOO /QUIK/ SOURCE/DATAMAKE/ COMPLEX 
SELECT  632IDPOO/ QUIK/ SOURCE/ DATAMAKE/ CRTABLE 
SELECT  632IDPOO/ QUIK/ SOURCE/DATAMAKE/SRTTGT 
SELECT  6 32 IDPOO / QUIK/ SOURCE/DATAMAKE / VLRADI 
SELECT  6 32IDPOO / QUIK/ SOURCE/DATAMAKE/ VLRADP 
EXECUTE  DUMP, DEBUG, NREST , JREST 
LIMITS  30,74K, -3K,30K 
FFILE  P*,LGU/(06,42,43, 11, 12) 

PRMFL  , R,  6 32IDPOO/  QUIK/ COP/HSTAR 

PRMFL  QD,R/W,R,632IDPOO/ QUIK/COP/IDS 

PRMFL  UL,R/W,R,632IDP00/ QUIK/LIBRARY/UTIL 

PRMFL  PL, R, S , LIBRARY/PLOTLIB 

FILE  02,X2R, 100L 

FILE  08,X8R,  100L 

FILE  19,X19R,  100L 

TAPE9  20,X20D, , 12345, , INPUT- JAD 

FILE  21,X21R,50L 

FFILE  21,NBUFFS/2 

FILE  22,X22R,50L 

FFILE  22.NBUFFS/2 

FILE  23,X23R, 50L 

FILE  23,NBUFFS/2 

FILE  24,X24R,50L 

FFILE  24,NBUFFS/2 

FILE  25 , X25R, 100R 

FILE  30,X30R, 10L 

TAPE9  31.X31D, , 54321, ,OUTPUT-SPILLTAPE 
TAPE9  32.X32D, , 54345, , SAVE-RESTORE-TAPE 
TAPE9  35, X35D,, 67890,, OUTPUT- TAPE-1 

TAPE9  36, X36D,, 98765,, OUTPUT-TAPE-2 
DATA  I* 

ENDJOB 


***eof 
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IDENT  1820510/30/5162, COMPL 

USERID  632IDP99$PASSWORD/UZZ 

LIMITS  30,60K,,10K 

OPTION  FORTRAN ,NOGO 

LIBRARY  UL, PL 

LOWLOAD 

ENTRY  

SELECT  632IDP00/QUIK /OBJECT/ COP 

SELECT  632IDP00/qU IK/OBJECT/ QDATA 

USE  . QMAX/1/ , . QAREA/3126/ , . QMIN/1/ , .FRRD. 

LINK  BOOTT 

SELECT  632IDP00/QUIK/ OBJECT/BOOT 
LINK  TABSTR, BOOTT 

USE  TABLZ/ 808/ 

LINK  ERRF 

SELECT  632 IPDOO/QU IK/OB JECT/ERRFND 
LINK  INPT.ERRF 

SELECT  6 32IDPOO/QUIK/ OBJECT/ INPTRN 
LINK  JLM, TABSTR 

SELECT  632IDP00/qU IK/OBJECT/ JLM 
LINK  ASS I 

SELECT  632IDP00/QUIK/ OBJECT/ ASSIGN 
LINK  SELE,ASSI 

SELECT  632 IDPOO/ QUIK/ OBJECT/ SELECT 
LINK  ASTE,SELE 

SELECT  632IDP00/ QUIK/OBJECT/ ASTERISK 
LINK  DATA, JLM 

SELECT  632IDP00/ QUIK/ OBJECT/DATA 
LINK  DATADL 

SELECT  632IDP00/ QUIK/ OBJECT/DELETE 

LINK  DATACH,  DATADL 

SELECT  632IDP00/ QUIK/ OBJECT/ CHANGE 

LINK  DATACR, DATACH 

SELECT  632IDP00/ QUIK/ OBJECT/ CREATE 

LINK  DBMOD , DATA 

SELECT  632 IDPOO/ QU IK/OB JECT/DBMOD 

LINK  INDXER,  DBMOD 

SELECT  6 32IDPOO/QUIK/OBJECT/ INDEXER 

LINK  PLANS, INDXER 

SELECT  632 IDPOO/ QUIK/ OBJECT/ PLANSET 

LINK  PREP,  PLANS 

SELECT  632IDP00/ QU1K/0BJECT/PREPAL0C 
LINK  EDIT, PREP 

SELECT  632IDPOO/QUIK/OBJECT/EDITDB 
LINK  E COUNT 

SELECT  632IDPOO/QU IK/OBJECT/COUNTS 
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LINK  EGENED , ECOUNT 

SELECT  632IDP00/QUIK/ OBJECT/GENED IT 

LINK  ENORMA, EGENED 

SELECT  632IDP00/ QUIK/ OBJECT/NORMAL 

LINK  EPROCE , ENORMA 

SELECT  632IDPOO/ QUIK/OBJECT/PROCEDIT 

LINK  REPORT,  EDIT 

SELECT  632IDPOO/QUIK/ OBJECT/REPORT 

LINK  RPTDSN 

SELECT  632IDPOO/QO IK/OBJECT/DESIGN 

LINK  RPTALT, RPTDSN 

SELECT  6 32 IDPOO/ QUIK/ OBJECT/ ALTER 

LINK  RPTBMC,  RPTALT 

SELECT  632IDPOO/ QUIK/ OBJECT/ DSPMAK 

LINK  REPPRN , RPTDMK 

SELECT  632IDPOO/QUIK/ OBJECT/PRINT 

LINK  SRM,  REPORT 

SELECT  632IDP00/QU  IK/OBJECT/ SRM 

LINK  EIM,  SRM 

SELECT  632 IDPOO/ QUIK/OB JECT/EIM 
LINK  BSIDAC 

SELECT  632IDPOO/ QUIK/OBJECT/SIDAC 

LINK  BOTHER, BSIDAC 

SELECT  632 IDPOO/ QUIK/OB JECT/BLDOTH 

LINK  BTABLE, BOTHER 

SELECT  632IDP00/ QUIK/OB JECT/TABLE 

LINK  PLOTTT, BTABLE 

SELECT  632IDPOO/ QUIK/ OBJECT/PLOTDATA 

LINK  PLOTIT, PLOTTT 

SELECT  632IDPOO/QUIK/OBJECT/PLOTIT 

LINK  ALOC.EIM 

SELECT  632IDPOO/QUIK/OBJECT/ ALOC 
LINK  ALCINT 

SELECT  632IDPOO/QUIK/OBJECT/ALCINT 
LINK  ALCMUL, ALCINT 

SELECT  6 32 IDPOO / QUIK/OBJECT/ ALCMUL 
LINK  FGD 

SELECT  6 32IDP00/QUIK/ OBJECT/ FGD 
LINK  SGD.FGD 

SELECT  632IDPOO/QUIK/ OBJECT/SGD 
LINK  STAL.SGD 

SELECT  632IDPOO/ QUIK/ OBJECT/STAL 
LINK  DEFAL.STAL 

SELECT  6 32 IDPOO / QUIK/OBJECT/ DEFAL 
LINK  EVAL.ALOC 

SELECT  6 32 IDPOO /QUIK/ OBJECT / EVALALOC 
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LINK 

DGZSEL,EVAL 

$ 

SELECT 

632IDPOO/ QUIK/ OBJECT/ALOCOUT 

$ 

LINK 

OFFSET 

$ 

SELECT 

632IDP00/ QUIK/ OBJECT/OFFSET 

$ 

LINK 

ASGSET, OFFSET 

$ 

SELECT 

6 32IDP00 /QUIK/OBJECT/ASGSET 

$ 

LINK 

MINIO, ASGSET 

$ 

SELECT 

6 3 2 IDPOO / QU IK/ OBJECT/MINIO 

$ 

LINK 

POST.DGZSEL 

$ 

SELECT 

632IDPOO/QUIK/OBJECT/POSTALQC 

$ 

LINK 

FOOT, POST 

$ 

SELECT 

6 32IDP00 / QUIK/ OBJECT/ FOOTPRNT 

$ 

LINK 

OPTS 

$ 

SELECT 

6 3 2 IDPOO / QUIK/ OBJECT/ FOOTOPTS 

$ 

LINK 

SETS, OPTS 

$ 

SELECT 

632IDPOO/QUIK/OBJECT/FOOTSETS 

$ 

LINK 

PLAN, SETS 

$ 

SELECT 

632IDP00/ QUIK/ OBJECT /FOOTPLAN 

$ 

LINK 

AS GN, PLAN 

$ 

SELECT 

6 32IDPOO/ QUIK/OBJECT/FOOTASGN 

$ 

LINK 

PLANO, FOOT 

$ 

SELECT 

6 32 IDPOO/ QUIK/OB JECT/PLANO 

$ 

LINK 

PLOT 

$ 

SELECT 

632IDPOO/QUIK/OBJECT/PLOT 

$ 

LINK 

IOTR.PLOT 

$ 

SELECT 

632IDPOO/ QUIK/ OBJECT/ IOTR 

$ 

LINK 

TANK.IOTR 

$ 

SELECT 

632IDP00/ QUIK/ OBJECT/TANK 

$ 

LINK 

DMAKE,  PLANO 

$ 

SELECT 

6 32IDPOO/QUIK/ OBJECT/DATAMAKE 

$ 

EXECUTE 

DUMP , DEBUG , NREST , JREST 

$ 

LIMITS 

10,60K,-3K,10K 

$ 

FFILE 

PX.LGU/ (06,42,43, 11, 12) 

$ 

PRMFL 

H* , R/W , R, 6 32IDP00/ QUIK/ COP/HSTAR 

$ 

PRMFL 

QD , R/W , R,  6 3 1 IDPOO  / QUIK/  COP/  IDS 

$ 

PRMFL 

UL, R/W, R, 631IDP00/ QU3K/LIBRARY/UTIL 

$ 

PRMFL 

PL , R, S , L IBRARY / PLOTL IB 

$ 

FILE 

02,X2R, 100L 

$ 

FILE 

08,X8R, 100L 

$ 

FILE 

19,X19R, 100L 

$ 

TAPE9 

20 , X20D ,, 12345 , , INPUT- JAD 

$ 

FILE 

21,X21R,50L 

$ 

FFILE 

21,NBUFFS/2 

$ 

FILE 

22.X22R, 50L 

$ 

FFILE 

22,NBUFFS/2 

$ 

FILE 

23,X23R, 50L 
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